diff options
Diffstat (limited to 'FugueConfig.pm')
-rw-r--r-- | FugueConfig.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/FugueConfig.pm b/FugueConfig.pm index 806e19d..b1391ff 100644 --- a/FugueConfig.pm +++ b/FugueConfig.pm @@ -118,10 +118,14 @@ sub launchAgent { # launch a given command (not an ivy agent) on a given host sub launchCommand { + my ($type, $host, $command, $options) = @_; my @options = @$options if ref($options) eq 'ARRAY'; my $command_opt = $command.' '.join(' ', @options); my $pid = fork; + warn ("*** FugueConfig::launchCommand WARNING: Could not fork!\n"), return + unless defined $pid; + if ($pid) { # parent print "*** FugueConfig::launchCommand INFO: $host: launching command ". @@ -141,7 +145,7 @@ sub launchCommand { } } - } # end launchCommand -1 + +1; |