Fix test failure introduced several commits ago

[gruntmaster-daemon.git] / lib / Gruntmaster / Daemon / Format.pm

diff --git a/lib/Gruntmaster/Daemon/Format.pm b/lib/Gruntmaster/Daemon/Format.pm
index 866345f2a90f8721c5e680b9db8f97966ac39577..146ffb01868a91666d1ad7ec57b190303e5ca9cb 100644 (file)
--- a/lib/Gruntmaster/Daemon/Format.pm
+++ b/lib/Gruntmaster/Daemon/Format.pm
@@ -15,7 +15,7 @@ use List::MoreUtils qw/natatime/;
 use Log::Log4perl qw/get_logger/;
 use IPC::Signal qw/sig_name sig_num/;
 
-our $VERSION = "5999.000_002";
+our $VERSION = "5999.000_004";
 our @EXPORT_OK = qw/prepare_files/;
 
 ##################################################
@@ -24,7 +24,7 @@ sub command_and_args{
        my ($format, $basename) = @_;
 
        given($format) {
-               "./$basename" when [qw/C CPP PASCAL/];
+               "./$basename" when [qw/C CPP GCCGO GOLANG HASKELL PASCAL/];
                "./$basename.exe" when 'MONO';
                java => $basename when 'JAVA';
                perl => $basename when 'PERL';
@@ -84,7 +84,7 @@ sub prepare{
 sub prepare_files{
        my $meta = shift;
 
-       for my $file (values $meta->{files}) {
+       for my $file (values %{$meta->{files}}) {
                my ($format, $name, $content) = @{$file}{qw/format name content/};
 
                $file->{run} = mkrun($format);