X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=test%2Fbin%2Fbomb.pl;h=ae978595c97b61f785cfa3544502277673843876;hb=bceda32ec4c5aaed6ce3e244aedc0ee47292ef97;hp=974a4bc1ddfc12eb6cb78e598dcfda18239d8f7b;hpb=7a06e9e971a22f99930bc8ec817737dd11906095;p=mkws-moved-to-github.git diff --git a/test/bin/bomb.pl b/test/bin/bomb.pl index 974a4bc..ae97859 100755 --- a/test/bin/bomb.pl +++ b/test/bin/bomb.pl @@ -57,7 +57,7 @@ $SIG{ALRM} = sub { my $pgid = getpgrp(); warn "Alarm handler got called after $timeout seconds\n"; - warn "Kill now the process group...\n\n"; + warn "Kill now the process group $pgid\n\n"; # kill process group kill "INT", -$pgid; @@ -69,7 +69,7 @@ $SIG{INT} = "IGNORE"; alarm($timeout); system(@system) == 0 - or die "system('@system') failed: ?='$?', !='$!', ^E='$^E'"; + or die "system('@system') failed: ?='$?', !='$!', ^E='$^E'\n"; 1;