From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 26 Feb 2001 13:52:19 +0000 (+0000)
Subject: A missing dTHX from Vadim Konovalov.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b86471a16155a412113ae4858b502516c48050a1;p=p5sagit%2Fp5-mst-13.2.git

A missing dTHX from Vadim Konovalov.

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

diff --git a/perlio.c b/perlio.c
index dd1c9ce..982a98c 100644
--- a/perlio.c
+++ b/perlio.c
@@ -1696,6 +1696,7 @@ PerlIOStdio_fdopen(PerlIO_funcs *self, int fd,const char *mode)
 IV
 PerlIOStdio_pushed(PerlIO *f, const char *mode, const char *arg, STRLEN len)
 {
+ dTHX;
  if (*PerlIONext(f))
   {
    PerlIOStdio *s = PerlIOSelf(f,PerlIOStdio);