From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 25 Feb 2001 10:52:25 +0000 (+0000)
Subject: Checked in the wrong one ...
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a936312a7ab627c98624c1ea83115246309b3d7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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__
+