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;
+ kill "TERM", -$pgid;
};
# don't kill ourself
alarm($timeout);
system(@system) == 0
- or die "system('@system') failed: ?='$?', !='$!', ^E='$^E'\n";
+ or die "system('@system') failed: ?='$?', !='$!'\n";
1;