X-Git-Url: http://git.indexdata.com/?p=mkws-moved-to-github.git;a=blobdiff_plain;f=test%2Fbin%2Fbomb.pl;h=2dde3d48f37ec1012e98d627f01f2c1db5da628f;hp=7e9ab0aff6e63ff412a2b52b9c343dad53429939;hb=e037fab727a9eb80c33f1693fcd6d0b67b84da32;hpb=a914309eea04e44fe857d2b36728bfe90d8f63a9

diff --git a/test/bin/bomb.pl b/test/bin/bomb.pl
index 7e9ab0a..2dde3d4 100755
--- a/test/bin/bomb.pl
+++ b/test/bin/bomb.pl
@@ -59,6 +59,7 @@ $SIG{ALRM} = sub {
 
     warn "Alarm handler got called after $timeout seconds\n";
     warn "Kill now the process group $pgid\n\n";
+    warn "Command: @system\n";
 
     # kill process group
     kill "INT", -$pgid;
@@ -70,6 +71,6 @@ $SIG{INT} = "IGNORE";
 alarm($timeout);
 
 system(@system) == 0
-  or die "system('@system') failed: ?='$?', !='$!', ^E='$^E'\n";
+  or die "system('@system') failed: ?='$?', !='$!'\n";
 
 1;