1# $Id: UnicodeExt.pm,v 1.1.1.1 2004/05/20 17:59:56 jpetri Exp $ 2 3package XML::SAX::PurePerl; 4use strict; 5 6no warnings 'utf8'; 7 8sub chr_ref { 9 return chr(shift); 10} 11 12if ($] >= 5.007002) { 13 require Encode; 14 15 Encode::define_alias( "UTF-16" => "UCS-2" ); 16 Encode::define_alias( "UTF-16BE" => "UCS-2" ); 17 Encode::define_alias( "UTF-16LE" => "ucs-2le" ); 18 Encode::define_alias( "UTF16LE" => "ucs-2le" ); 19} 20 211; 22 23