diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-21 16:07:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-21 16:07:20 +0000 |
| commit | 36d52296c16de220053927a47cf296e148a3a79d (patch) | |
| tree | 05c595a56bd88aafc075a80d05793d09cff4031d | |
| parent | a52cb5f71fdb108349442902e9c003c02608aae2 (diff) | |
| download | perl-36d52296c16de220053927a47cf296e148a3a79d.tar.gz | |
Skip processing a file if the file to be opened is '-'
(can happen in UNICOS)
p4raw-id: //depot/cfgperl@4596
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index 18260a9dca..ba0b281c83 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')) { |