- minor

perl/find_problematic_IEXML_files.pl

@@ -34,9 +34,10 @@ sub check_xml {
             location  => $filename,
             no_blanks => 1,
             compact   => 1
-            );
+            )
     };
     push @errorneous, $filename if $@;
+    return;
 } ## end sub check_xml
 
 sub process_sip () {