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
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 ($element->{Name} eq "value")
{ {
if ($self->{values} =~ /(-?[0-9]+(.[0-9]+)?)/) if ($self->{values} =~ /([-+]?[0-9]+(.[0-9]+)?)/)
{ {
$self->{parsed}{ids}{ $self->{inEval} } += $1; $self->{parsed}{ids}{ $self->{inEval} } += $1;
if ($self->{inValue} ne NO_ID_VALUE and $1) { if ($self->{inValue} ne NO_ID_VALUE and $1) {
@ -245,7 +245,8 @@ 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} }); # Remove empty identifier
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")
@ -271,7 +272,9 @@ sub end_element
} }
elsif ($element->{Name} eq "group") 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 });
} }
} }