(retracted by #12951)
Jarkko Hietaniemi [Mon, 12 Nov 2001 12:14:53 +0000 (12:14 +0000)]
p4raw-id: //depot/perl@12950

ext/Encode/Encode.pm

index ac04bba..a673fef 100644 (file)
@@ -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;
 }