From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Fri, 1 Jul 2005 10:56:23 +0000 (-0700)
Subject: Re: How to suppress warnings when building Errno with gcc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eeb7067f600640f443da80dc2b1a896ce8cf58c5;p=p5sagit%2Fp5-mst-13.2.git

Re: How to suppress warnings when building Errno with gcc
Message-ID: <20050701175623.GD216@efn.org>

p4raw-id: //depot/perl@25063
---

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index bd87f62..a09f9f6 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;
 		}
 	    }