X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=test%2Fbin%2Fbomb.pl;fp=test%2Fbin%2Fbomb.pl;h=f4b4cec28a1b66b298f89ce1ba4dec1d6e61be82;hb=6e888e413ec6754c540988844dd5fdfde39f61c0;hp=a84f40bb82bdc178167e11046f485d5718f137aa;hpb=bd230d3ba29021292ab66acd507242f66e04c904;p=mkws-moved-to-github.git diff --git a/test/bin/bomb.pl b/test/bin/bomb.pl index a84f40b..f4b4cec 100755 --- 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 @@ -57,7 +57,7 @@ EOF GetOptions( "help" => \$help, "debug=i" => \$debug, - "timeout=i" => \$timeout, + "timeout=f" => \$timeout, ) or die usage; my @system = @ARGV; @@ -68,6 +68,6 @@ die usage if !@system; set_alarm( $timeout, join( " ", @system ) ); system(@system) == 0 - or die "system @system failed: $?"; + or die "@system failed with exit code: $?\n"; exit(0);