]>
Commit | Line | Data |
---|---|---|
f3564b55 JR |
1 | diff -urNp -x '*.orig' perl-5.32.1.org/ext/Errno/Errno_pm.PL perl-5.32.1/ext/Errno/Errno_pm.PL |
2 | --- perl-5.32.1.org/ext/Errno/Errno_pm.PL 2020-12-18 11:04:36.000000000 +0100 | |
3 | +++ perl-5.32.1/ext/Errno/Errno_pm.PL 2021-04-01 22:48:31.609573602 +0200 | |
4 | @@ -67,6 +67,13 @@ sub process_file { | |
514700bf | 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 { | |
f3564b55 | 16 | unless(open(FH, '<', $file)) { |
514700bf | 17 | # This file could be a temporary file created by cppstdin |