From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Fri, 15 Jun 2001 12:08:53 +0000 (+0200)
Subject: Re: [PATCH} perlio and threading @ 10576 + report
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8bdaa535e831907095d85cca82627c485c5244c6;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH} perlio and threading @ 10576 + report
Message-Id: <20010615120320.F009.H.M.BRAND@hccnet.nl>

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

diff --git a/perlio.c b/perlio.c
index ac5ace8..e23878f 100644
--- a/perlio.c
+++ b/perlio.c
@@ -382,6 +382,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)
   {