--- perl5.004_55.nothr/utils/perldoc.PL~	Tue Nov 25 06:55:54 1997
+++ perl5.004_55.nothr/utils/perldoc.PL	Fri Nov 28 23:01:00 1997
@@ -152,7 +152,7 @@
      # 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;
