display command which will be terminated

[mkws-moved-to-github.git] / test / bin / bomb.pl

diff --git a/test/bin/bomb.pl b/test/bin/bomb.pl
index 7e9ab0a..2dde3d4 100755 (executable)
--- 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;