From ae9bc67e0e563008804253fabcc97b72ad6a251c Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Sun, 12 Apr 1998 03:49:46 +0000
Subject: [PATCH] Don't append () to the name of an object attribute in the
 index.

---
 Doc/perl/python.perl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index e45712b57f6..4a1967b74b5 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>";