diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-19 21:18:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-19 21:18:47 +0000 |
| commit | a4d725261607987fc109939ee708fdb1e2fee68e (patch) | |
| tree | 393b36aa8f54203e136bdf518cb3c7b3c3e69501 /utils | |
| parent | ca04da08a2bb281916a1130c43e547887a2880cb (diff) | |
| download | perl-a4d725261607987fc109939ee708fdb1e2fee68e.tar.gz | |
fix perldoc to ignore unfound null filenames
p4raw-id: //depot/perl@1156
Diffstat (limited to 'utils')
| -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 ac71dd6828..5b12696204 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 containspod($path); + return $path if length $path and containspod($path); } return ""; } |