summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2002-04-26 07:39:20 +0000
committerGurusamy Sarathy <gsar@cpan.org>2002-04-26 07:39:20 +0000
commitce0a1ae02a4caaed550a99c6d18f8cd84af3440f (patch)
tree5d60f4b30b84b499c00fd38f4537f677d640113a /sv.c
parent4bbc6d12636386d858939ccdfa3b6453cdf309df (diff)
downloadperl-ce0a1ae02a4caaed550a99c6d18f8cd84af3440f.tar.gz
fix typo that caused pseudo-fork() crashes on win64 (we were only
allocating half of the retstack!) p4raw-id: //depot/perl@16181
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 609142f8fa..5da249fb1a 100644
--- a/sv.c
+++ b/sv.c
@@ -10412,7 +10412,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
PL_retstack_ix = proto_perl->Tretstack_ix;
PL_retstack_max = proto_perl->Tretstack_max;
Newz(54, PL_retstack, PL_retstack_max, OP*);
- Copy(proto_perl->Tretstack, PL_retstack, PL_retstack_ix, I32);
+ Copy(proto_perl->Tretstack, PL_retstack, PL_retstack_ix, OP*);
/* NOTE: si_dup() looks at PL_markstack */
PL_curstackinfo = si_dup(proto_perl->Tcurstackinfo, param);