projects
/
gruntmaster-daemon.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 dc75fa147db478ae4050be5d3a1c3b442f8e29c5..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/;
use Log::Log4perl qw/get_logger/;
use IPC::Signal qw/sig_name sig_num/;
-our $VERSION = "5999.000_00
3
";
+our $VERSION = "5999.000_00
4
";
our @EXPORT_OK = qw/prepare_files/;
##################################################
our @EXPORT_OK = qw/prepare_files/;
##################################################
@@
-24,7
+24,7
@@
sub command_and_args{
my ($format, $basename) = @_;
given($format) {
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';
"./$basename.exe" when 'MONO';
java => $basename when 'JAVA';
perl => $basename when 'PERL';
@@
-84,7
+84,7
@@
sub prepare{
sub prepare_files{
my $meta = shift;
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);
my ($format, $name, $content) = @{$file}{qw/format name content/};
$file->{run} = mkrun($format);
This page took
0.010725 seconds
and
4
git commands to generate.