From: Jarkko Hietaniemi Date: Sun, 11 Nov 2001 21:41:44 +0000 (+0000) Subject: (retracted by #12951) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09f5d9b8c0cd31250d1dffcab0f926f42794e054;p=p5sagit%2Fp5-mst-13.2.git (retracted by #12951) p4raw-id: //depot/perl@12947 --- diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index bae9389..ac04bba 100644 --- 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; }