From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 22 Oct 2001 06:48:33 +0000 (+0000)
Subject: Restore non-ithreads build. Interestingly binmode test passes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3aaf42a70f921d9bb089a4793680c24d83c92281;p=p5sagit%2Fp5-mst-13.2.git

Restore non-ithreads build. Interestingly binmode test passes
non-ithreads - so crlf layer is not damaged and ithreads fail
is a symptom ...

p4raw-id: //depot/perlio@12555
---

diff --git a/perlio.c b/perlio.c
index 0de2829..4d05303 100644
--- a/perlio.c
+++ b/perlio.c
@@ -522,7 +522,7 @@ PerlIO_clone_list(pTHX_ PerlIO_list_t *proto, CLONE_PARAMS *param)
     for (i=0; i < proto->cur; i++) {
 	SV *arg = Nullsv;
 	if (proto->array[i].arg)
-	    arg = sv_dup(proto->array[i].arg,param);
+	    arg = PerlIO_sv_dup(aTHX_ proto->array[i].arg,param);
 	PerlIO_list_push(aTHX_ list, proto->array[i].funcs, arg);
     }
     return list;
@@ -531,6 +531,7 @@ PerlIO_clone_list(pTHX_ PerlIO_list_t *proto, CLONE_PARAMS *param)
 void
 PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param)
 {
+#ifdef USE_ITHREADS
     PerlIO **table = &proto->Iperlio;
     PerlIO *f;
     PL_perlio = NULL;
@@ -547,6 +548,7 @@ PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param)
 		f++;
 	    }
 	}
+#endif
 }
 
 void