1 files changed, 1 insertions, 2 deletions
diff --git a/sv.c b/sv.c
index db635955b4..f8e18a9e05 100644
--- a/sv.c
+++ b/sv.c
@@ -11273,8 +11273,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 	    SV * const sv =
 		SvREPADTMP(regex)
 		    ? sv_dup_inc((SV*) regex, param)
-		    : SvREFCNT_inc(
-			newSViv(PTR2IV(sv_dup_inc(INT2PTR(SV *, SvIVX(regex)), param))))
+		    : newSViv(PTR2IV(sv_dup_inc(INT2PTR(SV *, SvIVX(regex)), param)))
 		;
 	    if (SvFLAGS(regex) & SVf_BREAK)
 		SvFLAGS(sv) |= SVf_BREAK; /* unrefcnted PL_curpm */