diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 4a1967b74b5..92c00c58aa8 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -671,7 +671,7 @@ sub do_env_memberdesc{
     $class = $THIS_CLASS
         unless $class;
     $extra = " ($class_name attribute)"
-        if (!($class eq));
+        if (!($class eq ''));
     my $idx = make_str_index_entry($3, "<tt>$member</tt>$extra");
     $idx =~ s/ \(.*\)//;
     $idx =~ s/\(\)//;