Permalink
Browse files

collect reports per file

git-svn-id: http://perl-compiler.googlecode.com/svn/trunk@111 ed534f1a-1453-0410-ab30-dfc593a8b23c
  • Loading branch information...
1 parent dd75228 commit 05e504321866428bde5645443c22a6b42ae8b408 Reini Urban committed Dec 7, 2009
Showing with 6 additions and 3 deletions.
  1. +6 −3 status_upd
View
@@ -24,10 +24,11 @@ my $cmd = 'grep -B1 -i "Failed tests" ' . ($dir eq '.' ? "$logs" : "$dir/$logs")
print STDERR "$cmd\n";
my @g = `$cmd` or die $@;
my $s = "";
-my $prefix = '';
+my ($prefix,$oldprefix) = ('','');
while (@g) {
if ($g[0] =~ /^--/) {
+ $oldprefix = $prefix;
$prefix = '';
shift @g;
next;
@@ -36,8 +37,10 @@ while (@g) {
my $failed = shift @g;
unless ($prefix) {
($prefix) = $file =~ m{log.test-(.*?)-t/};
- $s .= "\n$prefix:\n";
- print STDERR "\n$prefix:\n";
+ if ($oldprefix ne $prefix) {
+ $s .= "\n$prefix:\n";
+ print STDERR "\n$prefix:\n";
+ }
}
($file) = $file =~ m{log.test-.*-(t/[\w\.]+\s?)};
chomp $file if $file;

0 comments on commit 05e5043

Please sign in to comment.