X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=misc%2Fsax_parser_test.pl;h=fb56de1174fc161d0b9d99500b7e345f6391ee9f;hb=db946ffd58094ec6287f991493a8df7bd7298f71;hp=c99f07bad26164dbdf172f842af6bd324fddd9b4;hpb=5e0b850d49f452ffbca41f47dc190d6d4f2323c7;p=koha_gimpoz

diff --git a/misc/sax_parser_test.pl b/misc/sax_parser_test.pl
index c99f07bad2..fb56de1174 100755
--- a/misc/sax_parser_test.pl
+++ b/misc/sax_parser_test.pl
@@ -1,13 +1,17 @@
 #!/usr/bin/perl
-#use strict;
-#use warnings; FIXME - Bug 2505
+
+use strict;
+use warnings;
+
 use XML::SAX;
+use Encode;
+
 my $parser = XML::SAX::ParserFactory->parser(
 Handler => MySAXHandler->new
 );
-binmode STDOUT, ":utf8";
-print "\x{65}\x{301}\n"; 
-use Encode; $parser->parse_string(encode_utf8("<xml>\x{65}\x{301}</xml>"));
+binmode STDOUT, ':encoding(UTF-8)';
+print "\x{65}\x{301}\n";
+$parser->parse_string(encode_utf8("<xml>\x{65}\x{301}</xml>"));
 $parser->parse_string("<xml>\xEF\xBB\xBF\x{65}\x{301}</xml>");
 
 package MySAXHandler;