diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-02-25 10:52:25 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-02-25 10:52:25 +0000 |
| commit | 2a936312a7ab627c98624c1ea83115246309b3d7 (patch) | |
| tree | 42d7f3cc64de35fb55ff2dc0e6fe0c35e9cbfca9 /ext/Encode | |
| parent | 14fb125dad9cd9086d001ea5a206ec3c9897a5c0 (diff) | |
| download | perl-2a936312a7ab627c98624c1ea83115246309b3d7.tar.gz | |
Checked in the wrong one ...
p4raw-id: //depot/perlio@8925
Diffstat (limited to 'ext/Encode')
| -rw-r--r-- | ext/Encode/Encode.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index 769b8daf46..eb07f1ffc6 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__ + |