the regression check script bomb.pl needs to switch the process group, MKWS-340

[mkws-moved-to-github.git] / test / bin / bomb

diff --git a/test/bin/bomb b/test/bin/bomb
new file mode 100755 (executable)
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