RT 58262 - fix warning messages from perl 5.12

git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@90 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Todd R
2010-10-15 19:04:46 +00:00
parent 376bbfb12d
commit 643107150c

View File

@@ -124,7 +124,7 @@ sub _interpolate_hash {
my ($this, $config) = @_; my ($this, $config) = @_;
# bugfix rt.cpan.org#46184, moved code from _interpolate() to here. # bugfix rt.cpan.org#46184, moved code from _interpolate() to here.
if ($this->{InterPolateEnv} && defined(%ENV)) { if ($this->{InterPolateEnv}) {
# may lead to vulnerabilities, by default flag turned off # may lead to vulnerabilities, by default flag turned off
for my $key (keys %ENV){ for my $key (keys %ENV){
$config->{__stack}->{$key}=$ENV{$key}; $config->{__stack}->{$key}=$ENV{$key};