From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 11 Feb 1999 09:27:17 +0000 (+0000)
Subject: display full pathname of unreadable files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0cf744f2f6675f9433a3526b5d3dd322ee804f14;p=p5sagit%2Fp5-mst-13.2.git

display full pathname of unreadable files

p4raw-id: //depot/perl@2866
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 4fff934..2633510 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 "";