Various new checks on Traces
This commit is contained in:
parent
6ca9007fde
commit
58d61f6ff7
@ -107,6 +107,7 @@ sub getIds ($)
|
|||||||
|
|
||||||
package TraceHandler;
|
package TraceHandler;
|
||||||
|
|
||||||
|
use Carp;
|
||||||
use constant NO_ID_VALUE => "__#";
|
use constant NO_ID_VALUE => "__#";
|
||||||
|
|
||||||
sub new ($$)
|
sub new ($$)
|
||||||
@ -164,6 +165,9 @@ sub start_element
|
|||||||
|
|
||||||
$self->{values} = "";
|
$self->{values} = "";
|
||||||
}
|
}
|
||||||
|
elsif ($element->{Name} ne "group" && $element->{Name} ne "name" && $element->{Name} ne "statut" && $element->{Name} ne "status" && $element->{Name} ne "log") {
|
||||||
|
croak "Not a valid trace XML: unknown tag ".$element->{Name};
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
sub characters
|
sub characters
|
||||||
@ -192,7 +196,7 @@ sub end_element
|
|||||||
}
|
}
|
||||||
elsif ($element->{Name} eq "eval")
|
elsif ($element->{Name} eq "eval")
|
||||||
{
|
{
|
||||||
delete $self->{parsed}{ids}{ $self->{inEval} } if (!$self->{parsed}{ids}{ $self->{inEval} });
|
#delete $self->{parsed}{ids}{ $self->{inEval} } if (!$self->{parsed}{ids}{ $self->{inEval} });
|
||||||
$self->{inEval} = "";
|
$self->{inEval} = "";
|
||||||
}
|
}
|
||||||
elsif ($element->{Name} eq "comment")
|
elsif ($element->{Name} eq "comment")
|
||||||
|
Reference in New Issue
Block a user