-#!/usr/local/bin/perl
+#!/usr/bin/perl
# Copyright (c) 2014 IndexData ApS. http://indexdata.com
#
# bomb.pl - wrapper to stop a process after N seconds
warn "Time out alarm $time\n";
# sends a hang-up signal to all processes in the current process group
- # and kill running java processes
local $SIG{HUP} = "IGNORE";
kill 1, -$$;
+ sleep 0.2;
local $SIG{TERM} = "IGNORE";
kill 15, -$$;
+ sleep 0.2;
kill 15, -$$;
warn "Send a hang-up to all childs.\n";
-
- #exit 1;
};
warn "set alarm time to: $time seconds $message\n" if $debug >= 1;
GetOptions(
"help" => \$help,
"debug=i" => \$debug,
- "timeout=i" => \$timeout,
+ "timeout=f" => \$timeout,
) or die usage;
my @system = @ARGV;
set_alarm( $timeout, join( " ", @system ) );
system(@system) == 0
- or die "system @system failed: $?";
+ or die "@system failed with exit code: $?\n";
exit(0);