(retracted by #12951)

p4raw-id: //depot/perl@12947

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index bae9389..ac04bba 100644 (file)
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -264,6 +264,7 @@ sub encode_utf8
 sub decode_utf8
 {
  my ($str) = @_;
+ return $str if is_utf8($str);
  return undef unless utf8::decode($str);
  return $str;
 }