From 14186584e0e2fb9aaf397c4678bc42015c6c9f7d Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 25 Nov 2000 20:52:17 +0000
Subject: C<foreach my $x ...> in pseudo-fork()ed process may diddle parent's
 memory; fix it by keeping track of the actual pad offset rather than a raw
 pointer (this change is probably also relevant to non-ithreads case to avoid
 fallout from reallocs of the pad array, but is currently only enabled for the
 ithreads case in the interests of minimal disruption to existing "well
 tested" code)

p4raw-id: //depot/perl@7858
---
 perlapi.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perlapi.c')

diff --git a/perlapi.c b/perlapi.c
index a2e73e4bd0..02c5aa3bca 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -2615,6 +2615,13 @@ Perl_save_re_context(pTHXo)
     ((CPerlObj*)pPerl)->Perl_save_re_context();
 }
 
+#undef  Perl_save_padsv
+void
+Perl_save_padsv(pTHXo_ PADOFFSET off)
+{
+    ((CPerlObj*)pPerl)->Perl_save_padsv(off);
+}
+
 #undef  Perl_save_sptr
 void
 Perl_save_sptr(pTHXo_ SV** sptr)
-- 
cgit v1.2.1