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" }
- }
-}
-
sub mkrun{
my $format = shift;
sub{
while (my ($fd, $file) = $it->()) {
push @args, "--fd=$fd $file";
}
- execlist $basename, @args, command_and_args($format, $basename);
+ execlist $basename, @args, "./$basename"
}
}