common/tools/brag/raptorToBRAG.pl
changeset 812 c8a16c56ada8
parent 807 194ddb729c09
--- 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';