Merge branch 'master' of ssh://git.indexdata.com:222/home/git/pub/mkws
authorWolfram Schneider <wosch@indexdata.dk>
Wed, 5 Nov 2014 09:53:39 +0000 (09:53 +0000)
committerWolfram Schneider <wosch@indexdata.dk>
Wed, 5 Nov 2014 09:53:39 +0000 (09:53 +0000)
1  2 
test/bin/bomb.pl

diff --combined test/bin/bomb.pl
@@@ -56,9 -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;
  };
@@@ -69,7 -66,7 +69,7 @@@ $SIG{INT} = "IGNORE"
  alarm($timeout);
  
  system(@system) == 0
-   or die "system @system failed: $?";
+   or die "system('@system') failed: ?='$?', !='$!', ^E='$^E', ?='$?'";
  
  1;