summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch
diff options
context:
space:
mode:
authorNitin A Kamble <nitin.a.kamble@intel.com>2011-04-23 19:43:17 -0700
committerRichard Purdie <richard.purdie@linuxfoundation.org>2011-04-28 10:44:22 +0100
commit829b985eb5c329772db49da9838530a639cb2638 (patch)
tree3c18883d115058c2c96c60919b5c052d21b109e6 /meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch
parent3669de7f96100a5d4fbfc9b4e2ebc16851ba98ea (diff)
downloadpoky-829b985eb5c329772db49da9838530a639cb2638.tar.gz
perl: upgrade from 5.12.2 to 5.12.3
And changed the perl tarball URL to more stable cpan location. (From OE-Core rev: 3a08c401f298095840a2aee9079845f5ff434410) Signed-off-by: Nitin A Kamble <nitin.a.kamble@intel.com> Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch')
-rw-r--r--meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch31
1 files changed, 31 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch b/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch
new file mode 100644
index 0000000000..d5ea00f2da
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch
@@ -0,0 +1,31 @@
1Upstream-Status:Inappropriate [embedded specific]
2
3Allow the location that .so files are searched for for dynamic
4loading to be changed via an environment variable. This is to allow
5us to load .so's from the host system while building for the target
6system.
7
8Update by Nitin A Kamble <nitin.a.kamble@intel.com> 2011/04/21
9
10--- perl-5.12.3/dist/XSLoader/XSLoader_pm.PL 2007/04/20 09:03:08 1.1
11+++ perl-5.12.3/dist/XSLoader/XSLoader_pm.PL 2007/04/20 09:03:08
12@@ -65,6 +65,19 @@
13 print OUT <<'EOT';
14 my $modpname = join('/',@modparts);
15 my $modlibname = (caller())[1];
16+ # OE: Allow env to form dynamic loader to look in a different place
17+ # This is so it finds the host .so files, not the targets
18+ if (defined $ENV{PERLHOSTLIB})
19+ {
20+ my $hostlib = $ENV{PERLHOSTLIB};
21+ print STDERR "*** Module name IN: $modlibname\n";
22+ ($p1, $p2, $p3, $p4, $p5) = $modlibname =~ m/(^(.*lib\/)?)((perl\/[0-9\.]*\/)?)(.*)$/;
23+ print STDERR "*** p1: $p1 p3: $p3 p5: $p5\n";
24+ if ( $p1 ne "" ) {
25+ $modlibname = $hostlib.$p5;
26+ }
27+ print STDERR "*** Module name OUT: $modlibname\n";
28+ }
29 my $c = @modparts;
30 $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename
31 my $file = "$modlibname/auto/$modpname/$modfname.$dl_dlext";