fixes perl_clone of perl_clone

Message-ID: <B773BFA4.236B%artur@contiller.se>

p4raw-id: //depot/perl@11325

1 files changed, 4 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 9dabaff097..2bf9adaee4 100644
--- a/sv.c
+++ b/sv.c
@@ -9791,7 +9791,10 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 	SV** regexen = AvARRAY((AV*)proto_perl->Iregex_padav);
 	for(i = 0; i <= len; i++) {                             
 	    av_push(PL_regex_padav,
-		    newSViv((IV)re_dup((REGEXP *)SvIV(regexen[i]), param)));
+            SvREFCNT_inc(
+                        newSViv((IV)re_dup((REGEXP *)
+                             SvIVX(regexen[i]), param))
+                    ));
 	}
     }
     PL_regex_pad = AvARRAY(PL_regex_padav);