sleep a little bit between sending signals to childs
authorWolfram Schneider <wosch@indexdata.dk>
Tue, 8 Apr 2014 11:34:26 +0000 (11:34 +0000)
committerWolfram Schneider <wosch@indexdata.dk>
Tue, 8 Apr 2014 11:34:26 +0000 (11:34 +0000)
test/bin/bomb.pl

index f4b4cec..5671a53 100755 (executable)
@@ -28,17 +28,16 @@ sub set_alarm {
         warn "Time out alarm $time\n";
 
         # sends a hang-up signal to all processes in the current process group
-        # and kill running java processes
         local $SIG{HUP} = "IGNORE";
         kill 1, -$$;
+        sleep 0.2;
 
         local $SIG{TERM} = "IGNORE";
         kill 15, -$$;
+        sleep 0.2;
         kill 15, -$$;
 
         warn "Send a hang-up to all childs.\n";
-
-        #exit 1;
     };
 
     warn "set alarm time to: $time seconds $message\n" if $debug >= 1;