diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-02-07 10:07:27 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-07 23:26:04 +0000 |
| commit | 4327152a8da835b489f2314100b405920cc614ea (patch) | |
| tree | 7482bd3f3e844d5ca29fab8fecd5d7f0301d5a37 /regcomp.h | |
| parent | 1ae175c8d48ec3f9bff4739583753d9b46939a5f (diff) | |
| download | perl-4327152a8da835b489f2314100b405920cc614ea.tar.gz | |
patch for change#2822, done right; add PERL_OBJECT stuff; regen headers
Message-ID: <19990207150726.A571@monk.mps.ohio-state.edu>
Subject: Re: fixing memory leaks in REx compilation
p4raw-link: @2822 on //depot/perl: 34184a49c8a0771dbea73b3f0519126fd5b22c2f
p4raw-id: //depot/perl@2826
Diffstat (limited to 'regcomp.h')
| -rw-r--r-- | regcomp.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -188,15 +188,15 @@ struct regnode_2 { #define FAIL(m) \ STMT_START { \ - /*if (!SIZE_ONLY) \ - ReREFCNT_dec(PL_regcomp_rx);*/ \ + if (!SIZE_ONLY) \ + SAVEDESTRUCTOR(clear_re,(void*)PL_regcomp_rx); \ croak ("/%.127s/: %s", PL_regprecomp,m); \ } STMT_END #define FAIL2(pat,m) \ STMT_START { \ - /*if (!SIZE_ONLY) \ - ReREFCNT_dec(PL_regcomp_rx);*/ \ + if (!SIZE_ONLY) \ + SAVEDESTRUCTOR(clear_re,(void*)PL_regcomp_rx); \ re_croak2("/%.127s/: ",pat,PL_regprecomp,m); \ } STMT_END |