From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 2 Jun 2003 09:02:18 +0000 (+0000)
Subject: I thought I tried building threaded.  Never think.  Try.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=81dc27fea0482a2f631d90ee1db863498dfcf65b;p=p5sagit%2Fp5-mst-13.2.git

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