projects
/
mkws-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
move ./bomb.pl script to ./bin sub-directory
[mkws-moved-to-github.git]
/
test
/
bin
/
bomb.pl
diff --git
a/test/bin/bomb.pl
b/test/bin/bomb.pl
index
a84f40b
..
f4b4cec
100755
(executable)
--- a/
test/bin/bomb.pl
+++ b/
test/bin/bomb.pl
@@
-1,4
+1,4
@@
-#!/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
# Copyright (c) 2014 IndexData ApS. http://indexdata.com
#
# bomb.pl - wrapper to stop a process after N seconds
@@
-57,7
+57,7
@@
EOF
GetOptions(
"help" => \$help,
"debug=i" => \$debug,
GetOptions(
"help" => \$help,
"debug=i" => \$debug,
- "timeout=i" => \$timeout,
+ "timeout=f" => \$timeout,
) or die usage;
my @system = @ARGV;
) or die usage;
my @system = @ARGV;
@@
-68,6
+68,6
@@
die usage if !@system;
set_alarm( $timeout, join( " ", @system ) );
system(@system) == 0
set_alarm( $timeout, join( " ", @system ) );
system(@system) == 0
- or die "system @system failed: $?";
+ or die "@system failed with exit code: $?\n";
exit(0);
exit(0);