X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.h;h=8ff2bff2f4b4327f057ffb625c74b2e7d19e08e7;hb=cf2649810f00335bd657355d81bcc9384a620135;hp=302228299fcc952a6cab28876fb1bd4912e879d8;hpb=0dbb1585a715e56312e579a5f0e7f82241b38352;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.h b/perlio.h
index 3022282..8ff2bff 100644
--- a/perlio.h
+++ b/perlio.h
@@ -210,7 +210,11 @@ PERL_EXPORT_C void PerlIO_clone(pTHX_ PerlInterpreter *proto,
 
 START_EXTERN_C
 #ifndef __attribute__format__
-#  define __attribute__format__(x,y,z) __attribute__((format(x,y,z)))
+#  ifdef HASATTRIBUTE_FORMAT
+#    define __attribute__format__(x,y,z) __attribute__((format(x,y,z)))
+#  else
+#    define __attribute__format__(x,y,z)
+#  endif
 #endif
 #ifndef PerlIO_init
 PERL_EXPORT_C void PerlIO_init(pTHX);