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