Tweak the XSFUNCTION, from Doug MacEachern, as suggested
Jarkko Hietaniemi [Mon, 25 Jun 2001 18:27:19 +0000 (18:27 +0000)]
by Ilya Zakharevich in
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-05/msg01582.html

p4raw-id: //depot/perl@10934

XSUB.h

diff --git a/XSUB.h b/XSUB.h
index 87a05d0..23f292b 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -90,7 +90,7 @@ handled automatically by C<xsubpp>.
 #  define XSINTERFACE_CVT(ret,name) ret (*name)()
 #endif
 #define dXSFUNCTION(ret)               XSINTERFACE_CVT(ret,XSFUNCTION)
-#define XSINTERFACE_FUNC(ret,cv,f)     ((XSINTERFACE_CVT(ret,cv))(f))
+#define XSINTERFACE_FUNC(ret,cv,f)     ((XSINTERFACE_CVT(ret,))(f))
 #define XSINTERFACE_FUNC_SET(cv,f)     \
                CvXSUBANY(cv).any_dptr = (void (*) (pTHXo_ void*))(f)