summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/perl/perl-5.14.3/letgcc-find-errno.patch
diff options
context:
space:
mode:
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.14.3/letgcc-find-errno.patch')
-rw-r--r--meta/recipes-devtools/perl/perl-5.14.3/letgcc-find-errno.patch46
1 files changed, 46 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.14.3/letgcc-find-errno.patch b/meta/recipes-devtools/perl/perl-5.14.3/letgcc-find-errno.patch
new file mode 100644
index 0000000..5161e4c
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.3/letgcc-find-errno.patch
@@ -0,0 +1,46 @@
1Upstream-Status:Inappropriate [embedded specific]
2
3This removes all the logic that perl uses to locate an appropriate
4errno.h for the target. Instead we simple create a file that does
5
6 #include "errno.h"
7
8and use that as the file to parse. This is needed when using an
9external toolchain since perl will search in ${STAGING_INCDIR} for
10errno.h (when using gcc) and that isn't where it's located - its
11wherever the external toolchain keeps it's headers.
12
13Index: 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;