diff options
author | Richard Purdie <richard@openedhand.com> | 2007-05-27 21:04:11 +0000 |
---|---|---|
committer | Richard Purdie <richard@openedhand.com> | 2007-05-27 21:04:11 +0000 |
commit | 80785a10721e523029c27f264fca5a892cf68e36 (patch) | |
tree | d33b51538db742a5d6f8df6b184b5531e8bf68ce /meta/packages/perl/perl-5.8.8/perl-configpm-switch.patch | |
parent | bd4fd028a799e804d803eac14ccb9e164ecc4938 (diff) | |
download | poky-80785a10721e523029c27f264fca5a892cf68e36.tar.gz |
perl: 5.8.7 -> 5.8.8 (from OE)
git-svn-id: https://svn.o-hand.com/repos/poky/trunk@1785 311d38ba-8fff-0310-9ca6-ca027cbcb966
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 | 34 |
1 files changed, 34 insertions, 0 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 new file mode 100644 index 0000000000..1aacd35189 --- /dev/null +++ b/meta/packages/perl/perl-5.8.8/perl-configpm-switch.patch | |||
@@ -0,0 +1,34 @@ | |||
1 | This patch is used for perl-native only. It enables the switching of | ||
2 | configuration files between Config_heavy.pl and | ||
3 | Config_heavy-target.pl by setting the environment variables | ||
4 | PERLCONFIGTARGET - the later containing settings for the target while | ||
5 | the former contains those for the host. This will allow cpan.bbclass | ||
6 | to use the settings appropriate for the native and/or target builds | ||
7 | as required. This also disables the use of the cache since the cached | ||
8 | values would be valid for the host only. | ||
9 | |||
10 | --- perl-5.8.8/configpm 2007/04/30 03:10:43 1.1 | ||
11 | +++ perl-5.8.8/configpm 2007/04/30 03:11:56 | ||
12 | @@ -374,7 +374,7 @@ | ||
13 | my($self, $key) = @_; | ||
14 | |||
15 | # check for cached value (which may be undef so we use exists not defined) | ||
16 | - return $self->{$key} if exists $self->{$key}; | ||
17 | + #return $self->{$key} if exists $self->{$key}; | ||
18 | |||
19 | return $self->fetch_string($key); | ||
20 | } | ||
21 | @@ -530,7 +530,12 @@ | ||
22 | sub DESTROY { } | ||
23 | |||
24 | sub AUTOLOAD { | ||
25 | - require 'Config_heavy.pl'; | ||
26 | + my $cfgfile = 'Config_heavy.pl'; | ||
27 | + if (defined $ENV{PERLCONFIGTARGET} and $ENV{PERLCONFIGTARGET} eq "yes") | ||
28 | + { | ||
29 | + $cfgfile = 'Config_heavy-target.pl'; | ||
30 | + } | ||
31 | + require $cfgfile; | ||
32 | goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; | ||
33 | die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; | ||
34 | } | ||