Exlicitly enable exporting of some XSUB symbols
authorSteffen Mueller <smueller@cpan.org>
Fri, 12 Aug 2011 15:27:00 +0000 (17:27 +0200)
committerSteffen Mueller <smueller@cpan.org>
Sun, 21 Aug 2011 11:30:55 +0000 (13:30 +0200)
These are used in other compilation units. The declarations there
use the XS_EXTERNAL macro to indicate an non-static XSUB that is
taken from another object file.

ext/XS-APItest/APItest.pm
ext/XS-APItest/APItest.xs
ext/XS-APItest/XSUB-redefined-macros.xs
ext/XS-APItest/XSUB-undef-XS_VERSION.xs

index c0326b3..5da52c2 100644 (file)
@@ -50,7 +50,7 @@ sub import {
     }
 }
 
-our $VERSION = '0.30';
+our $VERSION = '0.31';
 
 use vars '$WARNINGS_ON_BOOTSTRAP';
 use vars map "\$${_}_called_PP", qw(BEGIN UNITCHECK CHECK INIT END);
index beb7e2c..9b0d53a 100644 (file)
@@ -1064,9 +1064,9 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
 }
 
 
-XS(XS_XS__APItest__XSUB_XS_VERSION_undef);
-XS(XS_XS__APItest__XSUB_XS_VERSION_empty);
-XS(XS_XS__APItest__XSUB_XS_APIVERSION_invalid);
+XS_EXTERNAL(XS_XS__APItest__XSUB_XS_VERSION_undef);
+XS_EXTERNAL(XS_XS__APItest__XSUB_XS_VERSION_empty);
+XS_EXTERNAL(XS_XS__APItest__XSUB_XS_APIVERSION_invalid);
 
 #include "const-c.inc"
 
index 05cfb41..275f380 100644 (file)
@@ -14,6 +14,8 @@ MODULE = XS::APItest::XSUB1   PACKAGE = XS::APItest::XSUB
 
 PROTOTYPES: DISABLE
 
+EXPORT_XSUB_SYMBOLS: ENABLE
+
 void
 XS_VERSION_empty(...)
     PPCODE:
index 9fdf4d4..0b5a58e 100644 (file)
@@ -11,6 +11,8 @@ MODULE = XS::APItest::XSUB    PACKAGE = XS::APItest::XSUB
 
 PROTOTYPES: DISABLE
 
+EXPORT_XSUB_SYMBOLS: ENABLE
+
 void
 XS_VERSION_undef(...)
     PPCODE: