From eeb7067f600640f443da80dc2b1a896ce8cf58c5 Mon Sep 17 00:00:00 2001
From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Fri, 1 Jul 2005 03:56:23 -0700
Subject: [PATCH] Re: How to suppress warnings when building Errno with gcc
 Message-ID: <20050701175623.GD216@efn.org>

p4raw-id: //depot/perl@25063
---
 ext/Errno/Errno_pm.PL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
 		}
 	    }
-- 
2.7.4