summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-06-20 02:48:34 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-06-20 02:48:34 +0000
commit3878625118db6a48d9a6e00ced2a13904510d922 (patch)
tree96db2d4f7e5d81e35eb801ba43b902e3de38ebc3 /utils
parenta4d725261607987fc109939ee708fdb1e2fee68e (diff)
downloadperl-3878625118db6a48d9a6e00ced2a13904510d922.tar.gz
make perldoc ignore null files (it tried to open() them)
p4raw-id: //depot/perl@1157
Diffstat (limited to 'utils')
-rw-r--r--utils/perldoc.PL2
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 5b12696204..ac71dd6828 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -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 "";
}