I thought I tried building threaded. Never think. Try.

p4raw-id: //depot/perl@19658

diff --git a/perlio.c b/perlio.c
index ae3e051..1cdd8c4 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -4814,7 +4814,8 @@ PerlIO_stdoutf(const char *fmt, ...)
 PerlIO *
 PerlIO_tmpfile(void)
 {
-     PerlIO *f = Perl_my_tmpfp();
+     dTHX;
+     PerlIO *f = Perl_my_tmpfp(aTHX);
 
      if (f)
          PerlIOBase(f)->flags |= PERLIO_F_TEMP;