diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-16 18:36:44 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-22 18:26:36 +0000 |
| commit | a1ad65530dc2cbd7005009977b9830f483720573 (patch) | |
| tree | 8da065229f8bb4e6285bc1e17ec66454d5309b94 /ext | |
| parent | 37ca3c28c26fba0e36f080911207555f7b9381bc (diff) | |
| download | perl-a1ad65530dc2cbd7005009977b9830f483720573.tar.gz | |
Re: [perl #32687] Encode::is_utf8 on tainted UTF8 string
Message-ID: <20061116173644.4412f66f@grubert.mandriva.com>
p4raw-id: //depot/perl@30693
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/Encode.xs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs index 895819bcb7..ba2bf629b7 100644 --- a/ext/Encode/Encode.xs +++ b/ext/Encode/Encode.xs @@ -757,15 +757,11 @@ CODE: { 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 */ } |