aboutsummaryrefslogtreecommitdiff
path: root/lib/Arctica
diff options
context:
space:
mode:
authorGZNGET FOSS Team <opensource@gznianguan.com>2017-09-06 04:31:00 +0200
committerGZNGET FOSS Team <opensource@gznianguan.com>2017-09-06 04:31:00 +0200
commit06b47296e7643133e1e6774c3afce22cf5504ce7 (patch)
tree0c32de8d1e6c9e56df3f728fb12301cd3b1ee726 /lib/Arctica
parent320dc2058b4a6e65c0e1e0d3f4b88e3be7b825f4 (diff)
downloadperl-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.pm6
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}) {