diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-21 16:21:21 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-21 16:21:21 +0000 |
| commit | 6683669a6df1339a4d1816323a59ecded54b73e5 (patch) | |
| tree | 2b49e668724dbb0f8a89436dfccc04824a0cc2f4 | |
| parent | 36d52296c16de220053927a47cf296e148a3a79d (diff) | |
| download | perl-6683669a6df1339a4d1816323a59ecded54b73e5.tar.gz | |
Replace #4596 with the change done in 5.005_03.
p4raw-id: //depot/cfgperl@4597
| -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 ba0b281c83..75dacfc0bd 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')) { |