Checked in the wrong one ...

p4raw-id: //depot/perlio@8925

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index 769b8da..eb07f1f 100644 (file)
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -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__
+