remove unnecessary assignment

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 437c5cb5ca8e819b5bc58c5a136fb1c0de62c9fa..ab93c7cf8a118dba15ee8768bcf2ad9e5d155773 100644 (file)
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -530,7 +530,6 @@ sub add_index_entry($$){
 
 sub new_link_name_info(){
     my $name = "l2h-" . ++$globals{'max_id'};
-    my $aname = "<a id='$name' xml:id='$name'>";
     my $ahref = gen_link($CURRENT_FILE, $name);
     return ($name, $ahref);
 }