From 320dc2058b4a6e65c0e1e0d3f4b88e3be7b825f4 Mon Sep 17 00:00:00 2001 From: Mike Gabriel Date: Fri, 23 Jun 2017 18:53:17 +0200 Subject: lib/Arctica/Core/Mother/Forker.pm: Avoid keys on references. Forbidden in Debian 9's Perl version anyway. --- lib/Arctica/Core/Mother/Forker.pm | 4 ++-- 1 file 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"; -- cgit v1.2.3