summaryrefslogtreecommitdiff
path: root/embed.pl
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-11-25 20:52:17 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-11-25 20:52:17 +0000
commitc3564e5c35b594706ecb001261b86a47fb837059 (patch)
tree924db2bde875fbdf39afd6a16feea1b1c79b944a /embed.pl
parentcf829ab07ccc67cf02ca41d6f870136b64d83833 (diff)
downloadperl-c3564e5c35b594706ecb001261b86a47fb837059.tar.gz
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
Diffstat (limited to 'embed.pl')
-rwxr-xr-xembed.pl1
1 files changed, 1 insertions, 0 deletions
diff --git a/embed.pl b/embed.pl
index b8abef3a58..1d35bf6917 100755
--- a/embed.pl
+++ b/embed.pl
@@ -1933,6 +1933,7 @@ Ap |SV* |save_scalar |GV* gv
Ap |void |save_pptr |char** pptr
Ap |void |save_vptr |void* pptr
Ap |void |save_re_context
+Ap |void |save_padsv |PADOFFSET off
Ap |void |save_sptr |SV** sptr
Ap |SV* |save_svref |SV** sptr
Ap |SV** |save_threadsv |PADOFFSET i