From e10b21bd6f749557266af67672dfeb1b3edfe76c Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 3 May 2006 01:46:52 +0000
Subject: [PATCH] remove unnecessary assignment

---
 Doc/perl/python.perl | 1 -
 1 file changed, 1 deletion(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 437c5cb5ca8..ab93c7cf8a1 100644
--- 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);
 }