diff options
| author | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 18:53:17 +0200 |
|---|---|---|
| committer | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 18:53:17 +0200 |
| commit | 320dc2058b4a6e65c0e1e0d3f4b88e3be7b825f4 (patch) | |
| tree | 6439b8c4fadc94644958b08447b0c257a4acee0a | |
| parent | 6d8b80d6a7028236fb76df3038b08737a3ef9764 (diff) | |
| download | perl-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.pm | 4 |
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"; |