Patrick Williams | c124f4f | 2015-09-15 14:41:29 -0500 | [diff] [blame] | 1 | Upstream-Status:Inappropriate [embedded specific] |
| 2 | |
| 3 | This removes all the logic that perl uses to locate an appropriate |
| 4 | errno.h for the target. Instead we simple create a file that does |
| 5 | |
| 6 | #include "errno.h" |
| 7 | |
| 8 | and use that as the file to parse. This is needed when using an |
| 9 | external toolchain since perl will search in ${STAGING_INCDIR} for |
| 10 | errno.h (when using gcc) and that isn't where it's located - its |
| 11 | wherever the external toolchain keeps it's headers. |
| 12 | |
| 13 | Index: perl-5.12.3/ext/Errno/Errno_pm.PL |
| 14 | =================================================================== |
| 15 | --- perl-5.12.3.orig/ext/Errno/Errno_pm.PL |
| 16 | +++ perl-5.12.3/ext/Errno/Errno_pm.PL |
| 17 | @@ -17,8 +17,18 @@ unlink "Errno.tmp" if -f "Errno.tmp"; |
| 18 | open OUT, ">Errno.tmp" or die "Cannot open Errno.tmp: $!"; |
| 19 | select OUT; |
| 20 | my $file; |
| 21 | -my @files = get_files(); |
| 22 | -if ($Config{gccversion} ne '' && $^O eq 'MSWin32') { |
| 23 | +#my @files = get_files(); |
| 24 | +my @files = ("errno.h"); |
| 25 | + |
| 26 | +if (1) { |
| 27 | + open INCS, '>includes.c' or |
| 28 | + die "Cannot open includes.c"; |
| 29 | + print INCS qq[#include "errno.h"\n]; |
| 30 | + close INCS; |
| 31 | + process_file('includes.c'); |
| 32 | + unlink 'includes.c'; |
| 33 | +} |
| 34 | +elsif ($Config{gccversion} ne '' && $^O eq 'MSWin32') { |
| 35 | # MinGW complains "warning: #pragma system_header ignored outside include |
| 36 | # file" if the header files are processed individually, so include them |
| 37 | # all in .c file and process that instead. |
| 38 | @@ -53,7 +63,7 @@ sub process_file { |
| 39 | chomp($file = `cygpath -w "$file"`); |
| 40 | } |
| 41 | |
| 42 | - return unless defined $file and -f $file; |
| 43 | +# return unless defined $file and -f $file; |
| 44 | # warn "Processing $file\n"; |
| 45 | |
| 46 | local *FH; |