common/tools/brag/logToBRAG.pl
changeset 761 3901909be1ab
parent 753 5069de517698
--- a/common/tools/brag/logToBRAG.pl	Fri Nov 13 15:53:47 2009 +0000
+++ b/common/tools/brag/logToBRAG.pl	Mon Nov 16 14:47:25 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}})
 			{