common/tools/brag/logToBRAG.pl
changeset 753 5069de517698
parent 580 0a42a7ed6d8d
--- a/common/tools/brag/logToBRAG.pl	Tue Nov 10 16:52:27 2009 +0000
+++ b/common/tools/brag/logToBRAG.pl	Wed Nov 11 13:22:02 2009 +0000
@@ -100,7 +100,7 @@
 		{
 			last if $rule->{severity} eq "ignore";
 			# We found a match
-			my $failure = bless{ Kids => [ bless { Text => $line }, "Characters" ] }, "failure";
+			my $failure = bless{ Kids => [ bless { Kids => [ bless { Text => $line }, "Characters" ]}, "effect"] }, "failure";
 			# Ensure we have a <failures> tag for this severity
 			if (!exists $severityShortcut->{$rule->{severity}})
 			{