equal
deleted
inserted
replaced
98 { |
98 { |
99 if ($line =~ m[$rule->{regexp}]) |
99 if ($line =~ m[$rule->{regexp}]) |
100 { |
100 { |
101 last if $rule->{severity} eq "ignore"; |
101 last if $rule->{severity} eq "ignore"; |
102 # We found a match |
102 # We found a match |
103 my $failure = bless{ Kids => [ bless { Text => $line }, "Characters" ] }, "failure"; |
103 my $failure = bless{ Kids => [ bless { Kids => [ bless { Text => $line }, "Characters" ]}, "effect"] }, "failure"; |
104 # Ensure we have a <failures> tag for this severity |
104 # Ensure we have a <failures> tag for this severity |
105 if (!exists $severityShortcut->{$rule->{severity}}) |
105 if (!exists $severityShortcut->{$rule->{severity}}) |
106 { |
106 { |
107 # Create the failure set and add it to the shortcut list too |
107 # Create the failure set and add it to the shortcut list too |
108 my $failureSet = bless { level => $rule->{severity}, Kids => [ $xmlNewline ] }, "failures"; |
108 my $failureSet = bless { level => $rule->{severity}, Kids => [ $xmlNewline ] }, "failures"; |