From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 3 May 2002 07:07:36 +0000 (+0000)
Subject: Finish off 16350 for non-PERLIO build on linux,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=079b94bc698b0934beaf07d168872e7ff53ba831;p=p5sagit%2Fp5-mst-13.2.git

Finish off 16350 for non-PERLIO build on linux,
non PERL_IMPLICIT_SYS parts of iperlsys.h had junk
for some slots which now perlsdio.h is targeting.

p4raw-id: //depot/perlio@16366
---

diff --git a/iperlsys.h b/iperlsys.h
index 0dd5482..76a49cd 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -340,8 +340,8 @@ struct IPerlStdIOInfo
 #define PerlSIO_set_ptr(f,p)		PerlIOProc_abort()
 #endif
 #define PerlSIO_setlinebuf(f)		setlinebuf(f)
-#define PerlSIO_printf			Perl_fprintf_nocontext
-#define PerlSIO_stdoutf			*PL_StdIO->pPrintf
+#define PerlSIO_printf			fprintf
+#define PerlSIO_stdoutf			printf
 #define PerlSIO_vprintf(f,fmt,a)	vfprintf(f,fmt,a)
 #define PerlSIO_ftell(f)		ftell(f)
 #define PerlSIO_fseek(f,o,w)		fseek(f,o,w)