This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A missing dTHX from Vadim Konovalov.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 26 Feb 2001 13:52:19 +0000 (13:52 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 26 Feb 2001 13:52:19 +0000 (13:52 +0000)
p4raw-id: //depot/perl@8942

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);