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: UnicodeExt.pm
# $Id$ package XML::SAX::PurePerl::Reader; use strict; use Encode (); sub set_raw_stream { my ($fh) = @_; binmode($fh, ":bytes"); } sub switch_encoding_stream { my ($fh, $encoding) = @_; binmode($fh, ":encoding($encoding)"); } sub switch_encoding_string { $_[0] = Encode::decode($_[1], $_[0]); } 1;
Save