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