diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-12 12:32:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-12 12:32:13 +0000 |
| commit | 50de6d7ea6627af63fe7cc0e7a62e105a73a0565 (patch) | |
| tree | 159de2379bceebc6d4e5f64655760ad880644ac9 | |
| parent | 6436de9b6fb481491b13557b6b1cda32fa0abfb5 (diff) | |
| download | perl-50de6d7ea6627af63fe7cc0e7a62e105a73a0565.tar.gz | |
Ooops. I was "fixing" the wrong routine in #12947 and #12950.
p4raw-id: //depot/perl@12951
| -rw-r--r-- | ext/Encode/Encode.pm | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index a673fef61f..bae93893e7 100644 --- a/ext/Encode/Encode.pm +++ b/ext/Encode/Encode.pm @@ -264,7 +264,6 @@ sub encode_utf8 sub decode_utf8 { my ($str) = @_; - return pack("C*", unpack("U*", $str)) if is_utf8($str); return undef unless utf8::decode($str); return $str; } |