This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Finish off 16350 for non-PERLIO build on linux,
[perl5.git] / iperlsys.h
index 0dd5482..76a49cd 100644 (file)
@@ -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)