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 /proto.h | |
| 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 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -5434,11 +5434,6 @@ STATIC char* S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s, cons #define PERL_ARGS_ASSERT_FIND_BYCLASS \ assert(prog); assert(c); assert(s); assert(strend) -STATIC void S_swap_match_buff(pTHX_ regexp * prog) - __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT_SWAP_MATCH_BUFF \ - assert(prog) - STATIC void S_to_utf8_substr(pTHX_ regexp * prog) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_TO_UTF8_SUBSTR \ |