From: Doug MacEachern <dougm@covalent.net>
Date: Sat, 15 Sep 2001 16:53:01 +0000 (-0700)
Subject: [patch] ithreads+PL_beginav_save
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee1c5a4ed6beace0f9f941f22f8068cde74910fe;p=p5sagit%2Fp5-mst-13.2.git

[patch] ithreads+PL_beginav_save
Message-ID: <Pine.LNX.4.21.0109151651050.6089-100000@mako.covalent.net>

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

diff --git a/sv.c b/sv.c
index efac746..48d5422 100644
--- a/sv.c
+++ b/sv.c
@@ -9851,6 +9851,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_curstname	= sv_dup_inc(proto_perl->Icurstname, param);
 
     PL_beginav		= av_dup_inc(proto_perl->Ibeginav, param);
+    PL_beginav_save	= av_dup_inc(proto_perl->Ibeginav_save, param);
     PL_endav		= av_dup_inc(proto_perl->Iendav, param);
     PL_checkav		= av_dup_inc(proto_perl->Icheckav, param);
     PL_initav		= av_dup_inc(proto_perl->Iinitav, param);