A missing dTHX from Vadim Konovalov.

p4raw-id: //depot/perl@8942

diff --git a/perlio.c b/perlio.c
index dd1c9ce..982a98c 100644 (file)
--- 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);