From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 10 Sep 2001 12:59:40 +0000 (+0000)
Subject: Revert #11973, the dTHX seems to be needed in there
X-Git-Tag: accepted/trunk/20130322.191538~30318
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=779e1c5b757a1210770df002f91e0fd5dfb61a07;p=platform%2Fupstream%2Fperl.git

Revert #11973, the dTHX seems to be needed in there
for threaded builds.

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

diff --git a/perlio.c b/perlio.c
index cef9efe..549a187 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)
   {