Commits

Anonymous committed 0c94a7f

Now telling which filename causes the problem.

Comments (0)

Files changed (1)

bin/find_ascii_quotes-xmlp.pl

 use XML::Parser;
 
 binmode STDOUT, ":encoding(utf8)";
+
 foreach my $filename (@ARGV)
 {
     my $parser = XML::Parser->new(
         },
     );
 
-    $parser->parsefile($filename);
+    eval {
+        $parser->parsefile($filename);
+    };
+
+    if (my $err = $@)
+    {
+        die "Error '$err' at filename '$filename'";
+    }
 }