Source

shlomi-fish-homepage / bin / find_ascii_quotes.pl

Diff from to

bin/find_ascii_quotes.pl

 
 my $out_fn;
 
+binmode STDOUT, ":utf8";
+
 # Input the filename
 foreach my $filename (@ARGV)
 {
     my $reader = XML::LibXML::Reader->new(
-        location => $filename, load_ext_dtd => 0, 'no_network' => 1
+        location => $filename, load_ext_dtd => 1, 'no_network' => 1,
     ) or die "Cannot read '$filename'.";
     while ($reader->read())
     {