diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-20 02:48:34 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-20 02:48:34 +0000 |
| commit | 3878625118db6a48d9a6e00ced2a13904510d922 (patch) | |
| tree | 96db2d4f7e5d81e35eb801ba43b902e3de38ebc3 /utils/perldoc.PL | |
| parent | a4d725261607987fc109939ee708fdb1e2fee68e (diff) | |
| download | perl-3878625118db6a48d9a6e00ced2a13904510d922.tar.gz | |
make perldoc ignore null files (it tried to open() them)
p4raw-id: //depot/perl@1157
Diffstat (limited to 'utils/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 2 |
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 ""; } |