Change 11325 by jhi@alpha on 2001/07/12 18:11:42
Subject: [PATCH] fixes perl_clone of perl_clone
From: Artur Bergman <[EMAIL PROTECTED]>
Date: Thu, 12 Jul 2001 20:57:09 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/sv.c#439 edit
Differences ...
==== //depot/perl/sv.c#439 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Thu Jul 12 12:15:06 2001
+++ perl/sv.c Thu Jul 12 12:15:06 2001
@@ -9791,7 +9791,10 @@
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);
End of Patch.
