diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-22 23:35:56 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-02 16:48:26 +0000 |
| commit | a30b2f1f43446bf5477e7baa5fee5d5c59659ce6 (patch) | |
| tree | f119415cdab16fe15be9b51e64fce8e428881183 /regexec.c | |
| parent | ec3916884f8b516a101ac0b622cd88ae38c1b49d (diff) | |
| download | perl-a30b2f1f43446bf5477e7baa5fee5d5c59659ce6.tar.gz | |
[perl #18232] [PATCH] store PL_reg_match_utf8 in reganch
Message-Id: <20030122223556.57d597a3.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@18633
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -400,6 +400,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, char *i_strpos = strpos; SV *dsv = PERL_DEBUG_PAD_ZERO(0); #endif + RX_MATCH_UTF8_set(prog,do_utf8); if (prog->reganch & ROPT_UTF8) { DEBUG_r(PerlIO_printf(Perl_debug_log, @@ -1615,6 +1616,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * SV *dsv0 = PERL_DEBUG_PAD_ZERO(0); SV *dsv1 = PERL_DEBUG_PAD_ZERO(1); #endif + RX_MATCH_UTF8_set(prog,do_utf8); PL_regcc = 0; |