This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
__attribute__ problems with g++
[perl5.git] / perl.h
diff --git a/perl.h b/perl.h
index e34ace3..442935f 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -131,7 +131,11 @@ struct perl_thread;
 #endif
 
 #ifdef HASATTRIBUTE
-#  define PERL_UNUSED_DECL __attribute__((unused))
+#  if defined(__GNUC__) && defined(__cplusplus)
+#    define PERL_UNUSED_DECL
+#  else
+#    define PERL_UNUSED_DECL __attribute__((unused))
+#  endif
 #else
 #  define PERL_UNUSED_DECL
 #endif