From: Fred Drake <fdrake@acm.org>
Date: Tue, 12 Jan 1999 04:16:51 +0000 (+0000)
Subject: do_cmd_methodline():  Fixed reference to method name when generating
X-Git-Tag: v1.5.2b2~380
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=5a0ca4e55caa415c57b68cb2cd519c9939d26035;p=thirdparty%2FPython%2Fcpython.git

do_cmd_methodline():  Fixed reference to method name when generating
	the output HTML.
---

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index de47e974611c..ff0bd88548fc 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -621,13 +621,13 @@ sub do_env_methoddesc{
     my $class_name = next_optional_argument();
     $class_name = $THIS_CLASS
         unless $class_name;
-    my $method_name = next_argument();
+    my $method = next_argument();
     my $arg_list = next_argument();
     my $extra = '';
     if ($class_name) {
 	$extra = " ($class_name method)";
     }
-    my $idx = make_str_index_entry("<tt>$method_name()</tt>$extra");
+    my $idx = make_str_index_entry("<tt>$method()</tt>$extra");
     $idx =~ s/ \(.*\)//;
     $idx =~ s/\(\)//;
     return "<dl><dt><b>$idx</b> (<var>$arg_list</var>)\n<dd>" . $_ . '</dl>';
@@ -645,7 +645,7 @@ sub do_cmd_methodline{
     if ($class_name) {
 	$extra = " ($class_name method)";
     }
-    my $idx = make_str_index_entry("<tt>$method_name()</tt>$extra");
+    my $idx = make_str_index_entry("<tt>$method()</tt>$extra");
     $idx =~ s/ \(.*\)//;
     $idx =~ s/\(\)//;
     return "<dt><b>$idx</b> (<var>$arg_list</var>)\n<dd>"