diff options
| -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 ""; } |