diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-22 06:48:33 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-22 06:48:33 +0000 |
| commit | 3aaf42a70f921d9bb089a4793680c24d83c92281 (patch) | |
| tree | f3839e082e4f01b6fe6cecf9c7e8d64ddcd3f3f4 /perlio.c | |
| parent | d93f9f22eaa7dce16568cb2193ca194466bae1c2 (diff) | |
| download | perl-3aaf42a70f921d9bb089a4793680c24d83c92281.tar.gz | |
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
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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 |