This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Checked in the wrong one ...
[perl5.git] / ext / Encode / Encode.pm
index 769b8da..eb07f1f 100644 (file)
@@ -184,7 +184,7 @@ sub name { 'utf8' }
 sub toUnicode
 {
  my ($obj,$octets,$chk) = @_;
- my $str = decode_utf8($octets);
+ my $str = Encode::decode_utf8($octets);
  if (defined $str)
   {
    $_[1] = '' if $chk;
@@ -196,14 +196,11 @@ sub toUnicode
 sub fromUnicode
 {
  my ($obj,$string,$chk) = @_;
- my $octets = encode_utf8($string);
+ my $octets = Encode::encode_utf8($string);
  $_[1] = '' if $chk;
  return $octets;
-
 }
 
-*fromUnicode = \&toUnicode;
-
 package Encode::Table;
 
 sub read
@@ -395,6 +392,8 @@ package Encode;
 
 1;
 
+__END__
+
 =head1 NAME
 
 Encode - character encodings
@@ -801,4 +800,4 @@ L<perlunicode>, L<perlebcdic>, L<perlfunc/open>
 =cut
 
 
-__END__
+