-
- die "gruntmaster-exec died\n" if -z $er;
- my ($excode, $exmsg) = read_file $er;
- unlink $er;
- chomp ($excode, $exmsg); ## no critic (ProhibitParensWithBuiltins)
- get_logger->trace("Exec result: $excode $exmsg");
- die [$excode, $exmsg] if $excode > 0; ## no critic (RequireCarping)
-}
-
-sub command_and_args{
- my ($format, $basename) = @_;
-
- given($format) {
- "./$basename" when [qw/C CPP GCCGO GOLANG HASKELL PASCAL/];
- "./$basename.exe" when 'MONO';
- java => $basename when 'JAVA';
- perl => $basename when 'PERL';
- python => $basename when 'PYTHON';
- default { die "Don't know how to execute format $format\n" }
- }