From: Wolfram Schneider <wosch@indexdata.dk>
Date: Wed, 5 Nov 2014 09:53:22 +0000 (+0000)
Subject: display a warning message if the alarm handler (timeout) was triggered
X-Git-Tag: 1.0.0~82
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=bc574e44244a984d51bf5aa9de3df27d1f277777;p=mkws-moved-to-github.git

display a warning message if the alarm handler (timeout) was triggered
---

diff --git a/test/bin/bomb.pl b/test/bin/bomb.pl
index b91f049..1592161 100755
--- a/test/bin/bomb.pl
+++ b/test/bin/bomb.pl
@@ -56,6 +56,9 @@ if ($@) {
 $SIG{ALRM} = sub {
     my $pgid = getpgrp();
 
+    warn "Alarm handler got called after $timeout seconds\n";
+    warn "Kill now the process group...\n\n";
+
     # kill process group
     kill "INT", -$pgid;
 };