# HG changeset patch
# User Simon Howkins <simonh@symbian.org>
# Date 1260191016 0
# Node ID c8a16c56ada8158f49167d2d55df654c7568c87f
# Parent  08dbc9b99fd28761364109486d416ba6b44ed09d
Fixed format checking of summary.csv to deal with new field.

diff -r 08dbc9b99fd2 -r c8a16c56ada8 common/tools/brag/raptorToBRAG.pl
--- a/common/tools/brag/raptorToBRAG.pl	Mon Dec 07 11:40:50 2009 +0000
+++ b/common/tools/brag/raptorToBRAG.pl	Mon Dec 07 13:03:36 2009 +0000
@@ -59,11 +59,11 @@
 		next;
 	}
 	
-	my @keys = qw{category subcategory severity config component phase recipe file linenum};
+	my @keys = qw{category subcategory severity config component mmp phase recipe file linenum};
 	my @values = $csv->fields();
 	unless (scalar @values == scalar @keys)
 	{
-		warn "WARNING: line does not match expected format at $raptorSummary line $.. Skipping\n";
+		warn "WARNING: (raptorToBRAG.pl) line does not match expected format at $raptorSummary line $.. Skipping\n";
 		next;
 	}
 	
@@ -73,13 +73,13 @@
 	
 	if (!$failure->{category})
 	{
-		warn "WARNING: summary line without a category at $raptorSummary line $.. Skipping\n";
+		warn "WARNING: (raptorToBRAG.pl) summary line without a category at $raptorSummary line $.. Skipping\n";
 		next;
 	}
 	
 	if ($failure->{category} =~ m{^recipe_failure$}i and !$failure->{component})
 	{
-		warn "WARNING: recipe_failure with component field empty at $raptorSummary line $.. Skipping\n";
+		warn "WARNING: (raptorToBRAG.pl) recipe_failure with component field empty at $raptorSummary line $.. Skipping\n";
 		next;
 	}
 	$failure->{subcategory} ||= 'uncategorized';