From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 1 Aug 2001 12:46:43 +0000 (+0000)
Subject: Retract #11530 (the dTHX is needed under threads)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb74ffe153a965eab74d8cd38262171af829acd9;p=p5sagit%2Fp5-mst-13.2.git

Retract #11530 (the dTHX is needed under threads)

p4raw-id: //depot/perl@11531
---

diff --git a/perlio.c b/perlio.c
index 240099b..093cc8a 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)
   {