diff options
| author | GZNGET FOSS Team <opensource@gznianguan.com> | 2017-09-06 04:31:00 +0200 |
|---|---|---|
| committer | GZNGET FOSS Team <opensource@gznianguan.com> | 2017-09-06 04:31:00 +0200 |
| commit | 06b47296e7643133e1e6774c3afce22cf5504ce7 (patch) | |
| tree | 0c32de8d1e6c9e56df3f728fb12301cd3b1ee726 /lib/Arctica | |
| parent | 320dc2058b4a6e65c0e1e0d3f4b88e3be7b825f4 (diff) | |
| download | perl-Arctica-Core-Mother-Forker-06b47296e7643133e1e6774c3afce22cf5504ce7.tar.gz perl-Arctica-Core-Mother-Forker-06b47296e7643133e1e6774c3afce22cf5504ce7.tar.bz2 perl-Arctica-Core-Mother-Forker-06b47296e7643133e1e6774c3afce22cf5504ce7.zip | |
fix a few 'on reference' goofs
Diffstat (limited to 'lib/Arctica')
| -rw-r--r-- | lib/Arctica/Core/Mother/Forker.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Arctica/Core/Mother/Forker.pm b/lib/Arctica/Core/Mother/Forker.pm index ba6245b..0f6a213 100644 --- a/lib/Arctica/Core/Mother/Forker.pm +++ b/lib/Arctica/Core/Mother/Forker.pm @@ -393,7 +393,7 @@ sub log_slurper {# create pipe we can declare as log file. my $handler_function = $_[1]; if ($handler_function) { unless (($self->{'dead'} eq 1) and ($self->{'child_pid'} > 0)) { - print "SLURP!!!!!!!!!!!!!! NOM NOM NOM.....\n"; +# print "SLURP!!!!!!!!!!!!!! NOM NOM NOM.....\n"; my $pipe_path = $self->_create_pipe($handler_function); if (-p $pipe_path) { return $pipe_path; @@ -425,7 +425,7 @@ sub clargv_append { my $new_clargv = $_[1]; unless ($new_clargv =~ /^\s*$/) { unless (($self->{'dead'} eq 1) and ($self->{'child_pid'} > 0)) { - push $self->{'exec_cl_argv'}, $new_clargv; + push @{$self->{'exec_cl_argv'}}, $new_clargv; } else { die("Mother::Forker Must append cl_argv before exec!"); } @@ -582,7 +582,7 @@ sub _cfg_file_template_prep_vars { my $writefile = $_[3]; my $trigger_call = $_[4]; if ($self->{'cfg_files'}{$cfg_id}{'template'}) { - foreach my $inv_key (keys $in_vars) { + foreach my $inv_key (keys %{$in_vars}) { # if (length($in_vars->{$inv_key}) > 0) {# need to allow empty values my $uc_key = uc($inv_key); if ($self->{'cfg_files'}{$cfg_id}{'pdv'}{$uc_key}) { |