X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FDaemon%2FFormat.pm;fp=lib%2FGruntmaster%2FDaemon%2FFormat.pm;h=cfc3cf306d25cf40aa37392fd0280f2c580488ca;hp=529931fbf8d88827ca8dc25abd0a746583ec29e9;hb=c2af0332feff46fa63709349c52dd699e1a46890;hpb=23b3dc5a2a08988e12ba9bac69cdc21ccf9dc935 diff --git a/lib/Gruntmaster/Daemon/Format.pm b/lib/Gruntmaster/Daemon/Format.pm index 529931f..cfc3cf3 100644 --- a/lib/Gruntmaster/Daemon/Format.pm +++ b/lib/Gruntmaster/Daemon/Format.pm @@ -65,19 +65,6 @@ sub execlist { 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{ @@ -94,7 +81,7 @@ sub mkrun{ while (my ($fd, $file) = $it->()) { push @args, "--fd=$fd $file"; } - execlist $basename, @args, command_and_args($format, $basename); + execlist $basename, @args, "./$basename" } }