A missing dTHX from Vadim Konovalov.

p4raw-id: //depot/perl@8942

1 files changed, 1 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index dd1c9cebfa..982a98c004 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);