X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=fakesdio.h;h=d2caa112215f3082631fc82bd405be2ded47c16f;hb=62703e7218aceb3f5d30f70a2307dd02e5eb8c63;hp=8ef89e9ca5dd30d8a07c7b62436dc33e1a6af06f;hpb=eb1102fcca2230364ceadea29bd8e87ee51b15fa;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/fakesdio.h b/fakesdio.h
index 8ef89e9..d2caa11 100644
--- a/fakesdio.h
+++ b/fakesdio.h
@@ -1,6 +1,6 @@
 /*    fakestdio.h
  *
- *    Copyright (c) 2000-2002, Larry Wall
+ *    Copyright (C) 2000, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -55,6 +55,18 @@
 #undef tmpfile
 #undef ungetc
 #undef vfprintf
+#undef printf
+
+/* printf used to live in perl.h like this - more sophisticated 
+   than the rest 
+ */
+#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC)
+#define printf(fmt,args...) PerlIO_stdoutf(fmt,##args)
+#else
+#define printf PerlIO_stdoutf
+#endif
+#endif
+
 #define fprintf			PerlIO_printf
 #define stdin			PerlIO_stdin()
 #define stdout			PerlIO_stdout()