golden hour
/usr/local/share/perl5/XML/SAX/PurePerl/Reader
⬆️ Go Up
Upload
File/Folder
Size
Actions
NoUnicodeExt.pm
587 B
Del
OK
Stream.pm
1.76 KB
Del
OK
String.pm
1.65 KB
Del
OK
URI.pm
1.43 KB
Del
OK
UnicodeExt.pm
326 B
Del
OK
Edit: NoUnicodeExt.pm
# $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