summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>1998-04-12 03:49:46 (GMT)
committerFred Drake <fdrake@acm.org>1998-04-12 03:49:46 (GMT)
commitae9bc67e0e563008804253fabcc97b72ad6a251c (patch)
tree3596295f5727972526c046381edb73e9f5a5deec /Doc/perl
parent62502051667c36c4e0dab7a37f7155042b3d2172 (diff)
downloadcpython-ae9bc67e0e563008804253fabcc97b72ad6a251c.zip
cpython-ae9bc67e0e563008804253fabcc97b72ad6a251c.tar.gz
cpython-ae9bc67e0e563008804253fabcc97b72ad6a251c.tar.bz2
Don't append () to the name of an object attribute in the index.
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/python.perl4
1 files changed, 2 insertions, 2 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index e45712b..4a1967b 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -671,8 +671,8 @@ sub do_env_memberdesc{
$class = $THIS_CLASS
unless $class;
$extra = " ($class_name attribute)"
- if $class;
- my $idx = make_str_index_entry($3, "<tt>$member()</tt>$extra");
+ if (!($class eq));
+ my $idx = make_str_index_entry($3, "<tt>$member</tt>$extra");
$idx =~ s/ \(.*\)//;
$idx =~ s/\(\)//;
"<dl><dt><b>$idx</b>\n<dd>" . $_ . "</dl>";