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 c0326b3920fbd38cd983487ff13d925a4fa31bb8..5da52c2e97d99260c9b376030b9c5b791f4206dd 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 beb7e2c764d76d687999ce2f301c714f93a1d33a..9b0d53a8b0d3eb7137ae107306ce369a7d19a036 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 05cfb419786ebbae20d9573b9f002396a97dca8d..275f380d9425cdb5d3dcd7c35a56f3d42668f5bd 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 9fdf4d443663a1eaf660c18ce41d00ea2af9a263..0b5a58e119dedccd59dc0ebde0c640d2b257dd7c 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: