aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 18:53:17 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 18:53:17 +0200
commit320dc2058b4a6e65c0e1e0d3f4b88e3be7b825f4 (patch)
tree6439b8c4fadc94644958b08447b0c257a4acee0a
parent6d8b80d6a7028236fb76df3038b08737a3ef9764 (diff)
downloadperl-Arctica-Core-Mother-Forker-320dc2058b4a6e65c0e1e0d3f4b88e3be7b825f4.tar.gz
perl-Arctica-Core-Mother-Forker-320dc2058b4a6e65c0e1e0d3f4b88e3be7b825f4.tar.bz2
perl-Arctica-Core-Mother-Forker-320dc2058b4a6e65c0e1e0d3f4b88e3be7b825f4.zip
lib/Arctica/Core/Mother/Forker.pm: Avoid keys on references. Forbidden in Debian 9's Perl version anyway.
-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";