summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2001-10-21 17:15:54 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2001-10-21 17:15:54 +0000
commit3a1ee7e89ce6793a321c9c259b0464c3f464c5ce (patch)
tree3414bb97a6a0e5e2d8a198a39533cde8aa0f674a /sv.c
parenta1ea730d96bcc07b3d616a92ace3927de8290cdd (diff)
downloadperl-3a1ee7e89ce6793a321c9c259b0464c3f464c5ce.tar.gz
Convert rest of PerlIO's memory tables to per-interp and add clone functions
for them. Call explicit cleanup during destruct process. - one binmode test is failing - also ext/threads/t/basic.t fails under make test, and is noisy under harness. (Threads results are intermingled and don't match order expected.) p4raw-id: //depot/perlio@12547
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/sv.c b/sv.c
index 3ab9f057f2..6a6c33bc30 100644
--- a/sv.c
+++ b/sv.c
@@ -9768,8 +9768,8 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
param->stashes = newAV(); /* Setup array of objects to call clone on */
#ifdef PERLIO_LAYERS
- /* Clone PerlIO table as soon as we can handle general xx_dup() */
- PerlIO_clone(aTHX_ proto_perl->Iperlio, param);
+ /* Clone PerlIO tables as soon as we can handle general xx_dup() */
+ PerlIO_clone(aTHX_ proto_perl, param);
#endif
PL_envgv = gv_dup(proto_perl->Ienvgv, param);