diff options
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 0ac8e0a806..3acb461f98 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -153,7 +153,7 @@ sub minus_f_nocase { # on a case-forgiving file system we can simply use -f $file if ($Is_VMS or $Is_MSWin32 or $^O eq 'os2') { return $file if -f $file and -r _; - warn "Ignored $file: unreadable\n" unless -r _; + warn "Ignored $file: unreadable\n" if -f _; return ''; } local *DIR; |