X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=test%2Fbin%2Fbomb;h=c511b3633748444836e8e05c4dd683f1e36eae0f;hb=fd831c63e414e24a0c596d93beb35f41c73762e5;hp=255bea59389b5f9eef06737e723ee68e81526bcd;hpb=f6c79975e0d027d1bec4e5c925ccce15460ae8ff;p=mkws-moved-to-github.git

diff --git a/test/bin/bomb b/test/bin/bomb
index 255bea5..c511b36 100755
--- a/test/bin/bomb
+++ b/test/bin/bomb
@@ -3,15 +3,19 @@
 #
 # bomb - wrapper to stop a process after N seconds
 
-# Turn on job control. This will switch to process group
+# Turn on job control. This will switch the process group
 # as on an interactive shell, and make sure that a signal
-# to the process group will not kill any parent processes
+# to the process group will not kill any parent processes.
 set -o monitor
 
+# the maximum amount of cpu time in seconds
+# last resort if BSD::Resource is not available in ./bomb.pl
+ulimit -t 120
+
 # now run the perl script. For unknown reasons, the
 # call to setpgrp() in perl does not work as expected,
 # and we solve the issue by this simple shell wrapper
 
-exec $0.pl "$@"
+perl $0.pl "$@"
 
 # EOF