common/tools/analysis/yarp.pl
changeset 203 011f16c9778b
parent 138 d3c5dd0ae0b0
child 205 863cc9c0bf03
--- a/common/tools/analysis/yarp.pl	Thu Jun 18 16:04:46 2009 +0100
+++ b/common/tools/analysis/yarp.pl	Thu Jun 18 18:36:41 2009 +0100
@@ -68,6 +68,7 @@
     my %licenceattempts;
     my $counter = 0;
     my $licence = 0;
+    my $failures = 0;
     while( my $line = <FILE>)
     {
       ++$counter;
@@ -84,6 +85,7 @@
 #          if($recipe->{'exit'} !~ m/ok/)
           if($recipe->{'exit'} =~ m/failed/)
           {
+	          ++$failures;
 #            if($recipe->{'target'} =~ m/\S:epoc32\//i) 
 #               && $recipe->{'target'} !~ m/\S:epoc32\/build/i)
             {
@@ -131,6 +133,8 @@
     }
   close FILE;
   print OUT "\n\nSummaries\n\n";
+  
+  print "Failures:$failures\n";
   foreach my $attempt (sort keys %attempts)
   {
     print OUT "Overall attempts: $attempt,".$attempts{$attempt}.",\n";