From 7daf51c2967d6ace97391a54e062d3eaed102b21 Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Sat, 29 Jun 2013 13:58:55 +0200
Subject: [PATCH] Before XML::Compile test

---
 xml-db/xml-db.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/xml-db/xml-db.pl b/xml-db/xml-db.pl
index 3594561..7e48b9c 100755
--- a/xml-db/xml-db.pl
+++ b/xml-db/xml-db.pl
@@ -42,6 +42,12 @@ sub Main {
   # load the unmerged database
   my $db = &LoadDB;
 
+  DoSomethingWithDb($db);
+}
+
+sub DoSomethingWithDb($) {
+  my $db = shift;
+
   my $doc = $db->{'TDC.xml'};
   #my $doc = $db->{'testing.xml'};
   #print Dumper($doc->findnodes('TrbNet')->toDebuggingHash);
@@ -72,6 +78,7 @@ sub Main {
               $field->getAttribute('start'),
               $field->getAttribute('size'),
               $name, $field->getAttribute('name'));
+        #print $field->getAttribute('errorflag'),"\n";
       }
     }
   }
-- 
2.43.0