Ooops. I was "fixing" the wrong routine in #12947 and #12950.

p4raw-id: //depot/perl@12951

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index a673fef..bae9389 100644 (file)
--- 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;
 }