mirror of
https://codeberg.org/scip/Config-General.git
synced 2025-12-16 12:11:02 +01:00
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:
@@ -124,7 +124,7 @@ sub _interpolate_hash {
|
||||
my ($this, $config) = @_;
|
||||
|
||||
# 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
|
||||
for my $key (keys %ENV){
|
||||
$config->{__stack}->{$key}=$ENV{$key};
|
||||
|
||||
Reference in New Issue
Block a user