/
usr
/
share
/
perl5
/
vendor_perl
/
XML
/
SAX
/
PurePerl
/
Reader
/
/usr/share/perl5/vendor_perl/XML/SAX/PurePerl/Reader
mkdir
upload
Name
Size
Mode
Actions
NoUnicodeExt.pm
587
0644
edit
dl
rm
Stream.pm
1801
0644
edit
dl
rm
String.pm
1691
0644
edit
dl
rm
UnicodeExt.pm
326
0644
edit
dl
rm
URI.pm
1462
0644
edit
dl
rm
Edit:
/usr/share/perl5/vendor_perl/XML/SAX/PurePerl/Reader/UnicodeExt.pm
(326B)
# $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
cmd:
run