diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-11 09:27:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-11 09:27:17 +0000 |
| commit | 0cf744f2f6675f9433a3526b5d3dd322ee804f14 (patch) | |
| tree | d0b510544a92ddf7900182978d15d3727810189e /utils/perldoc.PL | |
| parent | fe1d48e406eaa1977e84cc1939fcc5d7f475fb44 (diff) | |
| download | perl-0cf744f2f6675f9433a3526b5d3dd322ee804f14.tar.gz | |
display full pathname of unreadable files
p4raw-id: //depot/perl@2866
Diffstat (limited to 'utils/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 4fff93452f..26335101c0 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -188,7 +188,7 @@ sub minus_f_nocase { if (!$opt_i or $Is_VMS or $Is_MSWin32 or $Is_Dos or $^O eq 'os2') { # on a case-forgiving file system or if case is important # that is it all we can do - warn "Ignored $file: unreadable\n" if -f _; + warn "Ignored $path: unreadable\n" if -f _; return ''; } local *DIR; @@ -227,7 +227,7 @@ sub minus_f_nocase { return "" unless $found; push @p, $cip; return "@p" if -f "@p" and -r _; - warn "Ignored $file: unreadable\n" if -f _; + warn "Ignored @p: unreadable\n" if -f _; } } return ""; |