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 void
  18 XS_VERSION_empty(...)
  19     PPCODE:
  20         XS_VERSION_BOOTCHECK;
  21         XSRETURN_EMPTY;
  22
  23 void
  24 XS_APIVERSION_invalid(...)
  25     PPCODE:
  26         XS_APIVERSION_BOOTCHECK;
  27         XSRETURN_EMPTY;