diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2000-09-13 13:52:20 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-14 14:42:56 +0000 |
| commit | 569233ed6d7a0f6b310fe6aaef79d45640ae30bd (patch) | |
| tree | 8187469a54c235bee7d39c8d7bc20753c6af41e4 /regcomp.c | |
| parent | 67e989fb549091286d76fd8d29f1ec03b9da175d (diff) | |
| download | perl-569233ed6d7a0f6b310fe6aaef79d45640ae30bd.tar.gz | |
Fix for a parsing bug, not for the original bug.
Subject: Re: [ID 20000910.005] Another segfault with regexes.
Message-Id: <200009132152.RAA24029@leggy.zk3.dec.com>
p4raw-id: //depot/perl@7076
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1963,7 +1963,10 @@ S_reg(pTHX_ I32 paren, I32 *flagp) else sv = newSVpvn("", 0); + ENTER; + Perl_save_re_context(aTHX); rop = sv_compile_2op(sv, &sop, "re", &av); + LEAVE; n = add_data(3, "nop"); PL_regcomp_rx->data->data[n] = (void*)rop; |