1 # $Id: UnicodeExt.pm,v 1.1 2002/01/30 17:35:21 matt Exp $

     2 

     3 package XML::SAX::PurePerl;

     4 use strict;

     5 

     6 no warnings 'utf8';

     7 

     8 sub chr_ref {

     9     return chr(shift);

    10 }

    11 

    12 if ($] >= 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 

    21 1;

    22