From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 12 Nov 2001 12:14:53 +0000 (+0000)
Subject: (retracted by #12951)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6436de9b6fb481491b13557b6b1cda32fa0abfb5;p=p5sagit%2Fp5-mst-13.2.git

(retracted by #12951)

p4raw-id: //depot/perl@12950
---

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index ac04bba..a673fef 100644
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -264,7 +264,7 @@ sub encode_utf8
 sub decode_utf8
 {
  my ($str) = @_;
- return $str if is_utf8($str);
+ return pack("C*", unpack("U*", $str)) if is_utf8($str);
  return undef unless utf8::decode($str);
  return $str;
 }