$ARGV[0] =~ /prog/ ? test_pipe_read : test_pipe_write
}
-my $killuser = $ENV{GRUNTMASTER_KILL_USER};
my @sudo;
@sudo = (shellwords ($ENV{GRUNTMASTER_SUDO}), '--') if $ENV{GRUNTMASTER_SUDO} && $sudo;
undef $mlimit if @sudo; # sudo wants a lot of address space
exit !say ERR, "\nNo response from gruntmaster-exec child";
}
local $SIG{ALRM} = sub {
- if ($killuser) {
- system @sudo, 'pkill', '-KILL', '-u', $killuser;
- } else {
- kill KILL => $ret
- }
+ kill KILL => $ret;
$tle = 1
};
alarm ($timeout || 10);
}
}
test_pipes if grep /tty|fifo/, @fds;
- my $nproc = $killuser ? 15 : 1;
+ my $nproc = 15;
my $debug = $ENV{TEST_VERBOSE};
%ENV = (ONLINE_JUDGE => 1, PATH => $ENV{PATH}, HOME => $ENV{HOME});
setrlimit RLIMIT_AS, $mlimit, $mlimit or die $! if $mlimit;