diff options
author | etienne | 2004-03-15 13:27:24 +0000 |
---|---|---|
committer | etienne | 2004-03-15 13:27:24 +0000 |
commit | 8cfc00b622680f6c7b653959be49fbd35e3af71b (patch) | |
tree | 30f677128fbf10d9d5187700e5ae3b23750ff1c2 /FugueConfig.pm | |
parent | 2102b47ff958dd95879304a5571fadceb842bd68 (diff) | |
download | ivylaunch-8cfc00b622680f6c7b653959be49fbd35e3af71b.zip ivylaunch-8cfc00b622680f6c7b653959be49fbd35e3af71b.tar.gz ivylaunch-8cfc00b622680f6c7b653959be49fbd35e3af71b.tar.bz2 ivylaunch-8cfc00b622680f6c7b653959be49fbd35e3af71b.tar.xz |
*** empty log message ***
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; |