From d8f2cf8a73241e835478961923f08341719a76ab Mon Sep 17 00:00:00 2001 From: Artur Bergman Date: Sat, 26 Apr 2003 21:43:32 +0000 Subject: Fix bug #15161 by increasing the refcount on the RE and making sure to restore it correctly. Deals with both s//e and s///g. p4raw-id: //depot/perl@19342 --- pp_hot.c | 1 + 1 file changed, 1 insertion(+) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index b74000715e..c6a533b326 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -2161,6 +2161,7 @@ PP(pp_subst) if (!c) { register PERL_CONTEXT *cx; SPAGAIN; + ReREFCNT_inc(rx); PUSHSUBST(cx); RETURNOP(cPMOP->op_pmreplroot); } -- cgit v1.2.1