die usage if $help;
die usage if !@system;
-# set CPU limit, in case the alarm handler will
-# be ignored
-eval {
- require BSD::Resource;
- BSD::Resource::setrlimit( "RLIMIT_CPU", $timeout, 2 * $timeout )
- or die "Cannot set CPU limit: $!\n";
-};
-if ($@) {
- warn
- "WARNING: things would go more nicely with the BSD::Resource package\n";
-}
+# disabled - we set the CPU limit in the wrapper ./bomb
+## set CPU limit, in case the alarm handler will
+## be ignored
+#eval {
+# require BSD::Resource;
+# BSD::Resource::setrlimit( "RLIMIT_CPU", $timeout, 2 * $timeout )
+# or die "Cannot set CPU limit: $!\n";
+#};
+#if ($@) {
+# warn
+# "WARNING: things would go more nicely with the BSD::Resource package\n";
+#}
#
# configure signal handlers
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";
+ 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: $?";
+ or die "system('@system') failed: ?='$?', !='$!'\n";
1;
-