gruntmaster-exec

   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;
  14
  15 %ENV = (ONLINE_JUDGE => 1, PATH => $ENV{PATH});
  16 exec @args;