diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-11-23 13:36:24 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-23 12:57:18 +0000 |
| commit | bbe252da68db3f0a4d00844fdb5e30bf18a0828f (patch) | |
| tree | 63d46509865ffca1ff26e61ce7efa6aac36ee476 /mg.c | |
| parent | b3123a6146c9098bd93ca1ae1f6d6d6744ef9c4b (diff) | |
| download | perl-bbe252da68db3f0a4d00844fdb5e30bf18a0828f.tar.gz | |
Cleanup regexp flags and structure
Message-ID: <9b18b3110611230336p3ce3b16du47cd5398dea8d873@mail.gmail.com>
p4raw-id: //depot/perl@29360
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -871,7 +871,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) TAINT_NOT; sv_setpvn(sv, s, i); PL_tainted = oldtainted; - if ( (rx->reganch & ROPT_CANY_SEEN) + if ( (rx->extflags & RXf_CANY_SEEN) ? (RX_MATCH_UTF8(rx) && (!i || is_utf8_string((U8*)s, i))) : (RX_MATCH_UTF8(rx)) ) |