epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Remove empty identifier

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-25 19:41:05 +02:00
parent 780f189cd4
commit adfb686d04
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
ACU/Trace.pm
View file

@ -230,7 +230,7 @@ sub end_element
if ($element->{Name} eq "value")
{
if ($self->{values} =~ /(-?[0-9]+(.[0-9]+)?)/)
if ($self->{values} =~ /([-+]?[0-9]+(.[0-9]+)?)/)
{
$self->{parsed}{ids}{ $self->{inEval} } += $1;
if ($self->{inValue} ne NO_ID_VALUE and $1) {
@ -245,7 +245,8 @@ sub end_element
}
elsif ($element->{Name} eq "eval")
{
#delete $self->{parsed}{ids}{ $self->{inEval} } if (!$self->{parsed}{ids}{ $self->{inEval} });
# Remove empty identifier
delete $self->{parsed}{ids}{ $self->{inEval} } if (!$self->{parsed}{ids}{ $self->{inEval} });
$self->{inEval} = "";
}
elsif ($element->{Name} eq "comment")
@ -271,7 +272,9 @@ sub end_element
}
elsif ($element->{Name} eq "group")
{
pop @{ $self->{groups} };
my $key = pop @{ $self->{groups} };
# Remove empty identifier
delete $self->{parsed}{ids}{ $key } if ($key && !$self->{parsed}{ids}{ $key });
}
}