# HG changeset patch
# User Dario Sestito <darios@symbian.org>
# Date 1245346601 -3600
# Node ID 011f16c9778bc24aa215b035e972adb1ed2481de
# Parent  66da43a8fbf8b8255e3030893e2e76a7056a78a6
Yarp to print failures

diff -r 66da43a8fbf8 -r 011f16c9778b common/tools/analysis/yarp.pl
--- 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";