From b79c357a0c9c7ce8cc63f8054dca48fefcb408f8 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 23 May 2005 14:31:33 +0000
Subject: Attribute compilation fix for Windows by Andy Lester

p4raw-id: //depot/perl@24552
---
 perlio.h | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perlio.h')

diff --git a/perlio.h b/perlio.h
index 302228299f..8ff2bff2f4 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);
-- 
cgit v1.2.1