diff options
author | Richard Purdie <richard.purdie@linuxfoundation.org> | 2013-01-19 23:49:24 +0000 |
---|---|---|
committer | Richard Purdie <richard.purdie@linuxfoundation.org> | 2013-01-25 12:42:42 +0000 |
commit | 749e67d40a21ccedfc655a1eba2aac8736be6c31 (patch) | |
tree | f40b86471b3ae088428946dc84bd5afac035c67f /meta/recipes-devtools/perl/perl-5.14.2/dynaloaderhack.patch | |
parent | ad17b18fce8fb794ba69ff60dc4980c3f36ccfc2 (diff) | |
download | poky-749e67d40a21ccedfc655a1eba2aac8736be6c31.tar.gz |
perl: Add dyanloader build hack
Patch perl to allow builds to work where a native perl running against target modules
attempts to load a dynamic binary module. We assume that a native version of the
module exists as it would for the target and perform an appropriate path
substitution.
(From OE-Core rev: b5ea12fec329fe419bc3672ed1e1d5733ff2a9d3)
Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.14.2/dynaloaderhack.patch')
-rw-r--r-- | meta/recipes-devtools/perl/perl-5.14.2/dynaloaderhack.patch | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/dynaloaderhack.patch b/meta/recipes-devtools/perl/perl-5.14.2/dynaloaderhack.patch new file mode 100644 index 0000000000..3df593346c --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/dynaloaderhack.patch | |||
@@ -0,0 +1,23 @@ | |||
1 | Hack the dynamic module loader so that we use native modules since we can't load | ||
2 | the target ones. | ||
3 | |||
4 | Upstream-Status: Inappropriate | ||
5 | |||
6 | RP | ||
7 | 2013/01/13 | ||
8 | |||
9 | Index: perl-5.14.2/ext/DynaLoader/DynaLoader_pm.PL | ||
10 | =================================================================== | ||
11 | --- perl-5.14.2.orig/ext/DynaLoader/DynaLoader_pm.PL 2011-09-19 13:18:22.000000000 +0000 | ||
12 | +++ perl-5.14.2/ext/DynaLoader/DynaLoader_pm.PL 2013-01-19 16:09:51.020584945 +0000 | ||
13 | @@ -310,6 +310,10 @@ | ||
14 | foreach (@INC) { | ||
15 | <<$^O-eq-VMS>>chop($_ = VMS::Filespec::unixpath($_));<</$^O-eq-VMS>> | ||
16 | my $dir = "$_/auto/$modpname"; | ||
17 | + | ||
18 | + if (defined $ENV{PERL_LIB} and defined $ENV{PERLHOSTLIB}) { | ||
19 | + $dir =~ s/$ENV{PERL_LIB}/$ENV{PERLHOSTLIB}/g; | ||
20 | + } | ||
21 | |||
22 | next unless -d $dir; # skip over uninteresting directories | ||
23 | |||