diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-09-12 19:08:55 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-12 15:51:53 +0000 |
| commit | c9b9f90938a22f06e1d50b6595cbb0b943c4e4c7 (patch) | |
| tree | ac3e868dbb765a0686fcf953ae13f389fe846503 /pp.c | |
| parent | 8962fc49433b904c85e0ec947ec7e1d19c26eb99 (diff) | |
| download | perl-c9b9f90938a22f06e1d50b6595cbb0b943c4e4c7.tar.gz | |
Disable study() for utf-8 strings
Subject: Re: Re: [Fwd: Smoke [5.9.4] 28821 FAIL(XF) OSF1 V5.1 (EV6/4 cpu)]
Message-ID: <9b18b3110609120808jceb84ces55ef29c2f2b73ebc@mail.gmail.com>
p4raw-id: //depot/perl@28827
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -644,7 +644,7 @@ PP(pp_study) } s = (unsigned char*)(SvPV(sv, len)); pos = len; - if (pos <= 0 || !SvPOK(sv)) { + if (pos <= 0 || !SvPOK(sv) || SvUTF8(sv)) { /* No point in studying a zero length string, and not safe to study anything that doesn't appear to be a simple scalar (and hence might change between now and when the regexp engine runs without our set |