From: Robin Barker <RMBarker@cpan.org>
Date: Mon, 20 Jan 2003 15:26:21 +0000 (+0000)
Subject: (was RE: [PATCH] %_ (was Re: [PATCH] operation on `PL_na' may be undefined))
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1e56004eea7f1084f781747a68eb85600bd4218f;p=p5sagit%2Fp5-mst-13.2.git

(was RE: [PATCH] %_ (was Re: [PATCH] operation on `PL_na' may be undefined))
Message-ID: <533D273D4014D411AB1D00062938C4D904046299@hotel.npl.co.uk>

p4raw-id: //depot/perl@18556
---

diff --git a/perlio.h b/perlio.h
index 3fa6b15..9959019 100644
--- a/perlio.h
+++ b/perlio.h
@@ -206,7 +206,10 @@ extern void PerlIO_init(pTHX);
 #endif
 #ifndef PerlIO_stdoutf
 extern int PerlIO_stdoutf(const char *, ...)
-    __attribute__ ((__format__(__printf__, 1, 2)));
+#ifdef CHECK_FORMAT
+    __attribute__ ((__format__(__printf__, 1, 2)))
+#endif
+;
 #endif
 #ifndef PerlIO_puts
 extern int PerlIO_puts(PerlIO *, const char *);
@@ -266,11 +269,17 @@ extern void PerlIO_setlinebuf(PerlIO *);
 #endif
 #ifndef PerlIO_printf
 extern int PerlIO_printf(PerlIO *, const char *, ...)
-    __attribute__ ((__format__(__printf__, 2, 3)));
+#ifdef CHECK_FORMAT
+    __attribute__ ((__format__(__printf__, 2, 3)))
+#endif
+;
 #endif
 #ifndef PerlIO_sprintf
 extern int PerlIO_sprintf(char *, int, const char *, ...)
-    __attribute__ ((__format__(__printf__, 3, 4)));
+#ifdef CHECK_FORMAT
+    __attribute__ ((__format__(__printf__, 3, 4)))
+#endif
+;
 #endif
 #ifndef PerlIO_vprintf
 extern int PerlIO_vprintf(PerlIO *, const char *, va_list);