local-lib5/lib/perl5/XML/SAX/PurePerl/UnicodeExt.pm

   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