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

1 files changed, 1 insertions, 0 deletions

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);
 	}