Change 12556 by nick@camel-linux on 2001/10/22 06:51:22
Integrate non-ithreads fix to mainline
Affected files ...
... //depot/perl/perlio.c#129 integrate
Differences ...
==== //depot/perl/perlio.c#129 (text) ====
Index: perl/perlio.c
--- perl/perlio.c.~1~ Mon Oct 22 01:00:06 2001
+++ perl/perlio.c Mon Oct 22 01:00:06 2001
@@ -522,7 +522,7 @@
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 @@
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 @@
f++;
}
}
+#endif
}
void
End of Patch.
