From 45c68e7ce522261160abed996379f1b3517eab00 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 24 May 2001 21:02:30 +0000
Subject: [PATCH] DB_File has its own attribute story.

p4raw-id: //depot/perl@10201
---
 ext/DB_File/DB_File.xs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs
index 4f98488..74cbd1b 100644
--- a/ext/DB_File/DB_File.xs
+++ b/ext/DB_File/DB_File.xs
@@ -124,6 +124,13 @@
 
 #undef __attribute__
 
+/* Since we dropped the gccish definition of __attribute__ we will want
+ * to redefine dNOOP, however (so that dTHX continues to work).  Yes,
+ * all this means that we can't do attribute checking on the DB_File,
+ * boo, hiss. */
+#undef  dNOOP
+#define dNOOP extern int Perl___notused
+
 /* If Perl has been compiled with Threads support,the symbol op will
    be defined here. This clashes with a field name in db.h, so get rid of it.
  */
-- 
2.7.4