Bug 2505 - use strict and warnings in sax_parser_test

This commit is contained in:
Donovan Jones 2010-04-19 16:17:10 +12:00 committed by Chris Cormack
parent 36d43bab0a
commit 3e4044ad5c

View file

@ -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>"));
$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;