]>
Commit | Line | Data |
---|---|---|
da905f9e MG |
1 | #!/usr/bin/perl -w |
2 | use v5.14; | |
3 | use strict; | |
4 | ||
5 | use BSD::Resource qw/setrlimit RLIMIT_AS RLIMIT_FSIZE/; | |
6 | use sigtrap qw/XFSZ/; | |
7 | ||
8 | ################################################## | |
9 | ||
10 | my ($mlimit, $olimit, @args) = @ARGV; | |
11 | ||
12 | setrlimit RLIMIT_AS, $mlimit, $mlimit or die $! if $mlimit; | |
13 | setrlimit RLIMIT_FSIZE, $olimit, $olimit or die $! if $olimit; | |
50cdf3cb | 14 | |
2c596b7a | 15 | %ENV = (ONLINE_JUDGE => 1, PATH => $ENV{PATH}, HOME => $ENV{PATH}); |
da905f9e | 16 | exec @args; |