From 3e4044ad5c82d43ec5b69bd016243600ae2c5599 Mon Sep 17 00:00:00 2001 From: Donovan Jones Date: Mon, 19 Apr 2010 16:17:10 +1200 Subject: [PATCH] Bug 2505 - use strict and warnings in sax_parser_test --- misc/sax_parser_test.pl | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/misc/sax_parser_test.pl b/misc/sax_parser_test.pl index c99f07bad2..b2e597405c 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("\x{65}\x{301}")); +print "\x{65}\x{301}\n"; +$parser->parse_string(encode_utf8("\x{65}\x{301}")); $parser->parse_string("\xEF\xBB\xBF\x{65}\x{301}"); package MySAXHandler; -- 2.39.5