the regression check script bomb.pl needs to switch the process group, MKWS-340
authorWolfram Schneider <wosch@indexdata.dk>
Mon, 1 Dec 2014 12:53:18 +0000 (12:53 +0000)
committerWolfram Schneider <wosch@indexdata.dk>
Mon, 1 Dec 2014 12:53:18 +0000 (12:53 +0000)
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.

test/bin/bomb [new file with mode: 0755]

diff --git a/test/bin/bomb b/test/bin/bomb
new file mode 100755 (executable)
index 0000000..255bea5
--- /dev/null
@@ -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