Skip processing a file if the file to be opened is '-'

(can happen in UNICOS)

p4raw-id: //depot/cfgperl@4596

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index 18260a9..ba0b281 100644 (file)
--- 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 unless defined $file;
+    return if !defined $file || $file eq '-';
 
     local *FH;
     if (($^O eq 'VMS') && ($Config{vms_cc_type} ne 'gnuc')) {