diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-20 21:12:01 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-20 21:12:01 +0000 |
| commit | 249edfdff1b2b750e894ee5a0b6cb64d2640ca02 (patch) | |
| tree | 1dc369ca39e0f1bf0d9f982b043d20793a20aa1c | |
| parent | 4a71ed0cc11f5be9a856b29b19af5c91a1bd76cb (diff) | |
| download | perl-249edfdff1b2b750e894ee5a0b6cb64d2640ca02.tar.gz | |
undo goofed change 1157 (backed out the fix instead of keeping it)
p4raw-id: //depot/perl@1161
| -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 ""; } |