aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Arctica/Core/Mother/Forker.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Arctica/Core/Mother/Forker.pm b/lib/Arctica/Core/Mother/Forker.pm
index cc04619..ba6245b 100644
--- a/lib/Arctica/Core/Mother/Forker.pm
+++ b/lib/Arctica/Core/Mother/Forker.pm
@@ -246,7 +246,7 @@ sub _afork_ipty {
}
if ($self->{'env_set'}) {
- foreach my $key (keys $self->{'env_set'}) {
+ foreach my $key (keys %{$self->{'env_set'}}) {
$ENV{$key} = $self->{'env_set'}{$key};
}
}
@@ -604,7 +604,7 @@ sub _cfg_file_template_prep_vars {
if (($writefile eq 1) and ($self->{'cfg_files'}{$cfg_id}{'file_path'} =~ /^\//)) {
my $template = $self->{'cfg_files'}{$cfg_id}{'template'};
- foreach my $key (keys $self->{'cfg_files'}{$cfg_id}{'pdv'}) {
+ foreach my $key (keys %{$self->{'cfg_files'}{$cfg_id}{'pdv'}}) {
if ($template =~ /\$\$ACV\-$key\$\$/) {
# my $value = $decvars{$key}{'value'};
# print "FOUND MATCH: $1 $value\n";