Change 30693 by [EMAIL PROTECTED] on 2007/03/22 18:26:36
Subject: [PATCH] Re: [perl #32687] Encode::is_utf8 on tainted UTF8
string
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Thu, 16 Nov 2006 17:36:44 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Encode/Encode.xs#124 edit
Differences ...
==== //depot/perl/ext/Encode/Encode.xs#124 (text) ====
Index: perl/ext/Encode/Encode.xs
--- perl/ext/Encode/Encode.xs#123~28974~ 2006-10-09 07:29:52.000000000
-0700
+++ perl/ext/Encode/Encode.xs 2007-03-22 11:26:36.000000000 -0700
@@ -757,15 +757,11 @@
{
if (SvGMAGICAL(sv)) /* it could be $1, for example */
sv = newSVsv(sv); /* GMAGIG will be done */
- if (SvPOK(sv)) {
RETVAL = SvUTF8(sv) ? TRUE : FALSE;
if (RETVAL &&
check &&
!is_utf8_string((U8*)SvPVX(sv), SvCUR(sv)))
RETVAL = FALSE;
- } else {
- RETVAL = FALSE;
- }
if (sv != ST(0))
SvREFCNT_dec(sv); /* it was a temp copy */
}
End of Patch.
