diff --git a/perl/find_problematic_IEXML_files.pl b/perl/find_problematic_IEXML_files.pl
index 5dd65e182cc394cfd4490f9f3f2cb9abf0732271..ffe381cc1442ff9da105e7d7713e7454e114e730 100644
--- a/perl/find_problematic_IEXML_files.pl
+++ b/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 () {