This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A missing dTHX from Vadim Konovalov.
[perl5.git] / 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);