From: Artur Bergman <sky@nanisky.com>
Date: Thu, 12 Jul 2001 20:57:09 +0000 (+0200)
Subject: fixes perl_clone of perl_clone
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5269aecde866056a77e32c937c7c3182bb599487;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@11325
---

diff --git a/sv.c b/sv.c
index 9dabaff..2bf9ada 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);