equal
deleted
inserted
replaced
119 |
119 |
120 # Now create the failure itself, and add it to this failure set |
120 # Now create the failure itself, and add it to this failure set |
121 my $failureItem = bless { |
121 my $failureItem = bless { |
122 # href => "", |
122 # href => "", |
123 "package" => $failure->{package}, |
123 "package" => $failure->{package}, |
124 Kids => [ bless { Text => $message }, "Characters" ], |
124 Kids => [ bless { Kids => [ bless { Text => $message }, "Characters" ]}, "effect"], |
125 }, "failure"; |
125 }, "failure"; |
126 push @{$failureSet->{Kids}}, $failureItem, $ToBrag::xmlNewline; |
126 push @{$failureSet->{Kids}}, $failureItem, $ToBrag::xmlNewline; |
127 } |
127 } |
128 close(CSV); |
128 close(CSV); |
129 } |
129 } |