$SIG{ALRM} = sub {
my $pgid = getpgrp();
+ warn "Alarm handler got called after $timeout seconds\n";
+ warn "Kill now the process group $pgid\n\n";
+
# kill process group
kill "INT", -$pgid;
};
alarm($timeout);
system(@system) == 0
- or die "system('@system') failed: ?='$?', !='$!', ^E='$^E', ?='$?'";
+ or die "system('@system') failed: ?='$?', !='$!', ^E='$^E'\n";
1;