]>
Commit | Line | Data |
---|---|---|
514700bf | 1 | diff -urN perl-5.6.1.orig/ext/Errno/Errno_pm.PL perl-5.6.1/ext/Errno/Errno_pm.PL |
2 | --- perl-5.6.1.orig/ext/Errno/Errno_pm.PL Sun Apr 8 08:09:16 2001 | |
3 | +++ perl-5.6.1/ext/Errno/Errno_pm.PL Thu Apr 12 20:58:53 2001 | |
4 | @@ -37,6 +37,13 @@ | |
5 | warn "Cannot open '$file'"; | |
6 | return; | |
7 | } | |
8 | + } elsif ($^O eq 'linux') { | |
9 | + # With the -dM option option, gcc outputs every #define's it finds | |
10 | + my $cpp = default_cpp(); | |
11 | + unless(open(FH, "$cpp -dM < $file |")) { | |
12 | + warn "Cannot open '$file'"; | |
13 | + return; | |
14 | + } | |
15 | } else { | |
16 | unless(open(FH,"< $file")) { | |
17 | # This file could be a temporary file created by cppstdin |