my $pgid = getpgrp();
warn "Alarm handler got called after $timeout seconds\n";
- warn "Kill now the process group...\n\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;