diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2005-07-01 03:56:23 -0700 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-04 10:13:41 +0000 |
| commit | eeb7067f600640f443da80dc2b1a896ce8cf58c5 (patch) | |
| tree | 9dccbb30d806bc6120be800b44eaccbf05d99191 /ext/Errno | |
| parent | da78da6e52d0b37ee30b642783a0d9e91d0b3cd0 (diff) | |
| download | perl-eeb7067f600640f443da80dc2b1a896ce8cf58c5.tar.gz | |
Re: How to suppress warnings when building Errno with gcc
Message-ID: <20050701175623.GD216@efn.org>
p4raw-id: //depot/perl@25063
Diffstat (limited to 'ext/Errno')
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index bd87f6221d..a09f9f68ad 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -24,6 +24,8 @@ if ($Config{gccversion} ne '' && $^O eq 'MSWin32') { open INCS, '>includes.c' or die "Cannot open includes.c"; foreach $file (@files) { + next if $file eq 'errno.c'; + next unless -f $file; print INCS qq[#include "$file"\n]; } close INCS; @@ -194,8 +196,6 @@ sub get_files { if (/$pat/o) { my $f = $1; $f =~ s,\\\\,/,g; - next if $f eq 'errno.c'; - next unless -f $f; $file{$f} = 1; } } |