From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 21 Nov 1999 16:21:21 +0000 (+0000)
Subject: Replace #4596 with the change done in 5.005_03.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6683669a6df1339a4d1816323a59ecded54b73e5;p=p5sagit%2Fp5-mst-13.2.git

Replace #4596 with the change done in 5.005_03.

p4raw-id: //depot/cfgperl@4597
---

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index ba0b281..75dacfc 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -21,7 +21,7 @@ unlink "errno.c" if -f "errno.c";
 sub process_file {
     my($file) = @_;
 
-    return if !defined $file || $file eq '-';
+    return unless defined $file and -f $file;
 
     local *FH;
     if (($^O eq 'VMS') && ($Config{vms_cc_type} ne 'gnuc')) {