summaryrefslogtreecommitdiff
path: root/FugueConfig.pm
diff options
context:
space:
mode:
Diffstat (limited to 'FugueConfig.pm')
-rw-r--r--FugueConfig.pm8
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;