Lines 11-18
Link Here
|
11 |
open OUT, ">Errno.pm" or die "Cannot open Errno.pm: $!"; |
11 |
open OUT, ">Errno.pm" or die "Cannot open Errno.pm: $!"; |
12 |
select OUT; |
12 |
select OUT; |
13 |
my $file; |
13 |
my $file; |
14 |
my @files = get_files(); |
14 |
#my @files = get_files(); |
15 |
if ($Config{gccversion} ne '' && $^O eq 'MSWin32') { |
15 |
my @files = ("errno.h"); |
|
|
16 |
|
17 |
if (1) { |
18 |
open INCS, '>includes.c' or |
19 |
die "Cannot open includes.c"; |
20 |
print INCS qq[#include "errno.h"\n]; |
21 |
close INCS; |
22 |
process_file('includes.c'); |
23 |
unlink 'includes.c'; |
24 |
} |
25 |
elsif ($Config{gccversion} ne '' && $^O eq 'MSWin32') { |
16 |
# MinGW complains "warning: #pragma system_header ignored outside include |
26 |
# MinGW complains "warning: #pragma system_header ignored outside include |
17 |
# file" if the header files are processed individually, so include them |
27 |
# file" if the header files are processed individually, so include them |
18 |
# all in .c file and process that instead. |
28 |
# all in .c file and process that instead. |
Lines 44-50
Link Here
|
44 |
chomp($file = `cygpath -w "$file"`); |
54 |
chomp($file = `cygpath -w "$file"`); |
45 |
} |
55 |
} |
46 |
|
56 |
|
47 |
return unless defined $file and -f $file; |
57 |
# return unless defined $file and -f $file; |
48 |
# warn "Processing $file\n"; |
58 |
# warn "Processing $file\n"; |
49 |
|
59 |
|
50 |
local *FH; |
60 |
local *FH; |