Before XML::Compile test

diff --git a/xml-db/xml-db.pl b/xml-db/xml-db.pl
index 359456131d35170b03bae051301d1678b334972a..7e48b9cb939c8bf95bbaf61e570b5f4465a95d76 100755 (executable)
--- 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";
       }
     }
   }