summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>1998-04-11 03:12:06 (GMT)
committerFred Drake <fdrake@acm.org>1998-04-11 03:12:06 (GMT)
commit756a9e87b17e134d3b28a5425832cf065017553d (patch)
tree231af09f56184de31a25c3cbdec84139a48f2ade
parentbe14e697423cef4cb3dfb9ca210cc545c7771b8e (diff)
downloadcpython-756a9e87b17e134d3b28a5425832cf065017553d.zip
cpython-756a9e87b17e134d3b28a5425832cf065017553d.tar.gz
cpython-756a9e87b17e134d3b28a5425832cf065017553d.tar.bz2
do_env_memberdesc(): Fix argument parsing for {memberdesc} environments.
(The bug was detected by the Q/A team -- me! Please, help review the docs!)
-rw-r--r--Doc/perl/python.perl8
1 files 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>";
}