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 | openembedded-core-80785a10721e523029c27f264fca5a892cf68e36.tar.gz openembedded-core-80785a10721e523029c27f264fca5a892cf68e36.tar.bz2 openembedded-core-80785a10721e523029c27f264fca5a892cf68e36.tar.xz openembedded-core-80785a10721e523029c27f264fca5a892cf68e36.zip |
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 000000000..1aacd3518 --- /dev/null +++ b/meta/packages/perl/perl-5.8.8/perl-configpm-switch.patch @@ -0,0 +1,34 @@ +This patch is used for perl-native only. It enables the switching of +configuration files between Config_heavy.pl and +Config_heavy-target.pl by setting the environment variables +PERLCONFIGTARGET - the later containing settings for the target while +the former contains those for the host. This will allow cpan.bbclass +to use the settings appropriate for the native and/or target builds +as required. This also disables the use of the cache since the cached +values would be valid for the host only. + +--- perl-5.8.8/configpm 2007/04/30 03:10:43 1.1 ++++ perl-5.8.8/configpm 2007/04/30 03:11:56 +@@ -374,7 +374,7 @@ + my($self, $key) = @_; + + # check for cached value (which may be undef so we use exists not defined) +- return $self->{$key} if exists $self->{$key}; ++ #return $self->{$key} if exists $self->{$key}; + + return $self->fetch_string($key); + } +@@ -530,7 +530,12 @@ + sub DESTROY { } + + sub AUTOLOAD { +- require 'Config_heavy.pl'; ++ my $cfgfile = 'Config_heavy.pl'; ++ if (defined $ENV{PERLCONFIGTARGET} and $ENV{PERLCONFIGTARGET} eq "yes") ++ { ++ $cfgfile = 'Config_heavy-target.pl'; ++ } ++ require $cfgfile; + goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; + die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; + } |