Changeset 21635 for misc

Timestamp:

07/30/08 20:01:35 (5 months ago)

Author:

moritz

Message:

[evalbot] group identical results in output of 'perl6:'

Files:

• misc/evalbot/evalbot.pl (modified) (2 diffs)

misc/evalbot/evalbot.pl

@@ -116 +116 @@
             return "Program empty" unless length $str;
             warn "Perl6: $str\n";
-            my $result = '';
+            my %results;
             for my $eval_name qw(elf pugs rakudo){
                 my $e = $impls{$eval_name};
@@ -124 +124 @@
                     $revision = ' ' . $e->{revision}->();
                 }
-                $result .= sprintf "%s%s: %s\n", $eval_name, $revision, $tmp_res;
+                push @{$results{$tmp_res}}, "$eval_name$revision";
+            }
+            my $result = '';
+            while (my ($text, $names) = each %results){
+                $result .= join(', ', @$names);
+                $result .= ': ' . $text;
             }
             return $result;