Patrick Williams | c124f4f | 2015-09-15 14:41:29 -0500 | [diff] [blame] | 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 | |