diff options
| author | George Greer <greerga@m-l.org> | 2009-07-12 14:53:29 -0400 |
|---|---|---|
| committer | Yves Orton <demerphq@gemini.(none)> | 2009-07-26 23:28:59 +0200 |
| commit | e9105d30edfbaa7f444bc7984c9bafc8e991ad12 (patch) | |
| tree | 02f4a68781026819995c672ba8325caee5661d7f /embed.fnc | |
| parent | bd54d59dd6a665482e3984318596e9a54427f810 (diff) | |
| download | perl-e9105d30edfbaa7f444bc7984c9bafc8e991ad12.tar.gz | |
much better swap logic to support reentrancy and fix assert failure
Commit c74340f9 added backreferences as well as the idea of a ->swap
regex pointer to keep track of the match offsets in case of backtracking.
The problem is that when Perl re-enters the regex engine to handle
utf8::SWASHNEW, the ->swap is not saved/restored/cleared so any capture
from the utf8 (Perl) code could inadvertently modify the regex match
data that caused the utf8 swash to get built.
This change should close out RT #60508
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -1678,7 +1678,6 @@ ERsn |U8* |reghop4 |NN U8 *s|I32 off|NN const U8 *llim \ #endif ERsn |U8* |reghopmaybe3 |NN U8 *s|I32 off|NN const U8 *lim ERs |char* |find_byclass |NN regexp * prog|NN const regnode *c|NN char *s|NN const char *strend|NULLOK regmatch_info *reginfo -Es |void |swap_match_buff|NN regexp * prog Es |void |to_utf8_substr |NN regexp * prog Es |void |to_byte_substr |NN regexp * prog ERs |I32 |reg_check_named_buff_matched |NN const regexp *rex \ |