summaryrefslogtreecommitdiff
path: root/perlio.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-08-01 12:46:43 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-08-01 12:46:43 +0000
commiteb74ffe153a965eab74d8cd38262171af829acd9 (patch)
treee15d048c8bb1afc2a3fe4c6c0408af34258438b1 /perlio.c
parent9008c2f98e3ab3a3fa62b1f9cd5310465e2305f7 (diff)
downloadperl-eb74ffe153a965eab74d8cd38262171af829acd9.tar.gz
Retract #11530 (the dTHX is needed under threads)
p4raw-id: //depot/perl@11531
Diffstat (limited to 'perlio.c')
-rw-r--r--perlio.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/perlio.c b/perlio.c
index 240099bb52..093cc8a123 100644
--- a/perlio.c
+++ b/perlio.c
@@ -407,6 +407,7 @@ PerlIO_list_free(PerlIO_list_t *list)
void
PerlIO_list_push(PerlIO_list_t *list,PerlIO_funcs *funcs,SV *arg)
{
+ dTHX;
PerlIO_pair_t *p;
if (list->cur >= list->len)
{