From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 21 Nov 1999 16:07:20 +0000 (+0000)
Subject: Skip processing a file if the file to be opened is '-'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=36d52296c16de220053927a47cf296e148a3a79d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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')) {