Change 11978 by jhi@alpha on 2001/09/10 12:59:40
Revert #11973, the dTHX seems to be needed in there
for threaded builds.
Affected files ...
... //depot/perl/perlio.c#120 edit
Differences ...
==== //depot/perl/perlio.c#120 (text) ====
Index: perl/perlio.c
--- perl/perlio.c.~1~ Mon Sep 10 07:15:05 2001
+++ perl/perlio.c Mon Sep 10 07:15:05 2001
@@ -407,6 +407,7 @@
void
PerlIO_list_push(PerlIO_list_t *list,PerlIO_funcs *funcs,SV *arg)
{
+ dTHX;
PerlIO_pair_t *p;
if (list->cur >= list->len)
{
End of Patch.
