Name	Size	Mode	Actions
NoUnicodeExt.pm	587	0444	editdlrm
Stream.pm	1801	0444	editdlrm
String.pm	1691	0444	editdlrm
UnicodeExt.pm	326	0444	editdlrm
URI.pm	1462	0444	editdlrm

# $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;