From 756a9e87b17e134d3b28a5425832cf065017553d Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Sat, 11 Apr 1998 03:12:06 +0000
Subject: do_env_memberdesc():  Fix argument parsing for {memberdesc}
 environments.

(The bug was detected by the Q/A team -- me!  Please, help review the docs!)
---
 Doc/perl/python.perl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index ca91b2c..300ac18 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -690,9 +690,9 @@ sub do_env_memberdesc{
     # Predefined $opt_arg_rx & $optional_arg_rx don't work because they
     # require the argument to be there.
     my $opt_arg_rx = "^\\s*(\\[([^]]*)\\])?";
-    my $funcdesc_rx = "$opt_arg_rx$any_next_pair_rx3$any_next_pair_rx5";
-    /$funcdesc_rx/o;
-    my($class,$member,$arg_list) = ($2, $4, $6);
+    my $funcdesc_rx = "$opt_arg_rx$any_next_pair_rx3";
+    s/$funcdesc_rx//o;
+    my($class,$member) = ($2, $4);
     $class = $THIS_CLASS
         unless $class;
     $extra = " ($class_name attribute)"
@@ -700,7 +700,7 @@ sub do_env_memberdesc{
     my $idx = make_str_index_entry($3, "<tt>$member()</tt>$extra");
     $idx =~ s/ \(.*\)//;
     $idx =~ s/\(\)//;
-    "<dl><dt><b>$idx</b>\n<dd>$'</dl>";
+    "<dl><dt><b>$idx</b>\n<dd>" . $_ . "</dl>";
 }
 
 
-- 
cgit v0.12