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

diff --git a/test/bin/bomb b/test/bin/bomb
new file mode 100755
index 0000000..255bea5
--- /dev/null
+++ b/test/bin/bomb
@@ -0,0 +1,17 @@
+#!/bin/sh
+# Copyright (c) 2014 Index Data ApS. http://indexdata.com
+#
+# bomb - wrapper to stop a process after N seconds
+
+# Turn on job control. This will switch to process group
+# as on an interactive shell, and make sure that a signal
+# to the process group will not kill any parent processes
+set -o monitor
+
+# 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 "$@"
+
+# EOF