From 58d61f6ff7fb8980a7549b890dae49031a74b68a Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Thu, 12 Sep 2013 12:54:41 +0200
Subject: [PATCH] Various new checks on Traces

---
 ACU/Trace.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ACU/Trace.pm b/ACU/Trace.pm
index ec4677b..bf2b998 100644
--- a/ACU/Trace.pm
+++ b/ACU/Trace.pm
@@ -107,6 +107,7 @@ sub getIds ($)
 
 package TraceHandler;
 
+use Carp;
 use constant NO_ID_VALUE => "__#";
 
 sub new ($$)
@@ -164,6 +165,9 @@ sub start_element
 	    
 	$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
@@ -192,7 +196,7 @@ sub end_element
     }
     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} = "";
     }
     elsif ($element->{Name} eq "comment")