summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2007-02-26 17:45:23 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-02-26 17:10:33 +0000
commit3b57cd4384c4b5a2edd2c729f56fa95b0f14809d (patch)
tree71fb2220cddb2f838e202b3d9c7c69c9f947253b /regexec.c
parent4b196cd46959daf92b5a3a11ed7956e18098500c (diff)
downloadperl-3b57cd4384c4b5a2edd2c729f56fa95b0f14809d.tar.gz
Re: [perl #41565] qr// memory corruption
Message-ID: <9b18b3110702260745u373980e8x19ba3afdf33bd424@mail.gmail.com> p4raw-id: //depot/perl@30413
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index 4b7d94315e..1ae984262b 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2684,9 +2684,9 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
GET_RE_DEBUG_FLAGS_DECL;
#endif
- DEBUG_OPTIMISE_r( {
+ DEBUG_OPTIMISE_r( DEBUG_EXECUTE_r({
PerlIO_printf(Perl_debug_log,"regmatch start\n");
- });
+ }));
/* on first ever call to regmatch, allocate first slab */
if (!PL_regmatch_slab) {
Newx(PL_regmatch_slab, 1, regmatch_slab);