/
usr
/
local
/
share
/
perl5
/
XML
/
SAX
/
PurePerl
/
Reader
/
/usr/local/share/perl5/XML/SAX/PurePerl/Reader
mkdir
upload
Name
Size
Mode
Actions
NoUnicodeExt.pm
587
0444
edit
dl
rm
Stream.pm
1801
0444
edit
dl
rm
String.pm
1691
0444
edit
dl
rm
UnicodeExt.pm
326
0444
edit
dl
rm
URI.pm
1462
0444
edit
dl
rm
Edit:
/usr/local/share/perl5/XML/SAX/PurePerl/Reader/NoUnicodeExt.pm
(587B)
# $Id$ package XML::SAX::PurePerl::Reader; use strict; sub set_raw_stream { # no-op } sub switch_encoding_stream { my ($fh, $encoding) = @_; throw XML::SAX::Exception::Parse ( Message => "Only ASCII encoding allowed without perl 5.7.2 or higher. You tried: $encoding", ) if $encoding !~ /(ASCII|UTF\-?8)/i; } sub switch_encoding_string { my (undef, $encoding) = @_; throw XML::SAX::Exception::Parse ( Message => "Only ASCII encoding allowed without perl 5.7.2 or higher. You tried: $encoding", ) if $encoding !~ /(ASCII|UTF\-?8)/i; } 1;
Save
cmd:
run