diff options
Diffstat (limited to 'meta/packages/perl/perl-5.8.8/perl-configpm-switch.patch')
| -rw-r--r-- | meta/packages/perl/perl-5.8.8/perl-configpm-switch.patch | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/meta/packages/perl/perl-5.8.8/perl-configpm-switch.patch b/meta/packages/perl/perl-5.8.8/perl-configpm-switch.patch index 1aacd35189..ac519a0271 100644 --- a/meta/packages/perl/perl-5.8.8/perl-configpm-switch.patch +++ b/meta/packages/perl/perl-5.8.8/perl-configpm-switch.patch | |||
| @@ -18,7 +18,7 @@ values would be valid for the host only. | |||
| 18 | 18 | ||
| 19 | return $self->fetch_string($key); | 19 | return $self->fetch_string($key); |
| 20 | } | 20 | } |
| 21 | @@ -530,7 +530,12 @@ | 21 | @@ -530,7 +530,21 @@ |
| 22 | sub DESTROY { } | 22 | sub DESTROY { } |
| 23 | 23 | ||
| 24 | sub AUTOLOAD { | 24 | sub AUTOLOAD { |
| @@ -28,7 +28,16 @@ values would be valid for the host only. | |||
| 28 | + { | 28 | + { |
| 29 | + $cfgfile = 'Config_heavy-target.pl'; | 29 | + $cfgfile = 'Config_heavy-target.pl'; |
| 30 | + } | 30 | + } |
| 31 | + require $cfgfile; | 31 | + if (defined $ENV{PERL_ARCHLIB}) |
| 32 | + { | ||
| 33 | + push @INC, $ENV{PERL_ARCHLIB}; | ||
| 34 | + require $cfgfile; | ||
| 35 | + pop @INC; | ||
| 36 | + } | ||
| 37 | + else | ||
| 38 | + { | ||
| 39 | + require $cfgfile; | ||
| 40 | + } | ||
| 32 | goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; | 41 | goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; |
| 33 | die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; | 42 | die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; |
| 34 | } | 43 | } |