diff options
author | Yves Orton <demerphq@gmail.com> | 2010-11-02 14:24:20 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2010-11-03 10:24:41 +0100 |
commit | 20dbff7c228c031beedfe10ca09e8547f7cd3f2f (patch) | |
tree | 72d28e334162dee315eb6bc7d2b558397f6a2fe0 /regexec.c | |
parent | 8ff3250783a482c6a5b949510ec0926e865d25ad (diff) | |
download | perl-20dbff7c228c031beedfe10ca09e8547f7cd3f2f.tar.gz |
fix the trie part of rt-78356
When the jump code was added the case of an empty string followed
by a jump wasnt accounted for. One could argue it should not happen
however that is a matter for a different commit.
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -3223,7 +3223,8 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) "%*s %smatched empty string...%s\n", REPORT_CODE_OFF+depth*2, "", PL_colors[4], PL_colors[5]) ); - break; + if (!trie->jump) + break; } else { DEBUG_EXECUTE_r( PerlIO_printf(Perl_debug_log, |