Make substr = $utf8 call get-magic once
[perl.git] / ext / XS-APItest / XSUB-redefined-macros.xs
1 #include "EXTERN.h"
2 #include "perl.h"
3
4 /* We have to be in a different .xs so that we can do this:  */
5
6 #undef XS_VERSION
7 #define XS_VERSION ""
8 #undef PERL_API_VERSION_STRING
9 #define PERL_API_VERSION_STRING "1.0.16"
10 #include "XSUB.h"
11
12 /* This can't be "MODULE = XS::APItest" as then we get duplicate bootstraps.  */
13 MODULE = XS::APItest::XSUB1     PACKAGE = XS::APItest::XSUB
14
15 PROTOTYPES: DISABLE
16
17 EXPORT_XSUB_SYMBOLS: ENABLE
18
19 void
20 XS_VERSION_empty(...)
21     PPCODE:
22         XS_VERSION_BOOTCHECK;
23         XSRETURN_EMPTY;
24
25 void
26 XS_APIVERSION_invalid(...)
27     PPCODE:
28         XS_APIVERSION_BOOTCHECK;
29         XSRETURN_EMPTY;