make perldoc ignore null files (it tried to open() them)
Gurusamy Sarathy [Sat, 20 Jun 1998 02:48:34 +0000 (02:48 +0000)]
p4raw-id: //depot/perl@1157

utils/perldoc.PL

index 5b12696..ac71dd6 100644 (file)
@@ -226,7 +226,7 @@ sub check_file {
        return minus_f_nocase($dir,$file);
     } else {
        my $path = minus_f_nocase($dir,$file);
-        return $path if length $path and containspod($path);
+        return $path if containspod($path);
     }
     return "";
 }