[perl5.git] / ext / XS-APItest / XSUB-redefined-macros.xs

#include "EXTERN.h"
#include "perl.h"

/* We have to be in a different .xs so that we can do this:  */

#undef XS_VERSION
#define XS_VERSION ""
#undef PERL_API_VERSION_STRING
#define PERL_API_VERSION_STRING "1.0.16"
#include "XSUB.h"

/* This can't be "MODULE = XS::APItest" as then we get duplicate bootstraps.  */
MODULE = XS::APItest::XSUB1	PACKAGE = XS::APItest::XSUB

PROTOTYPES: DISABLE

void
XS_VERSION_empty(...)
    PPCODE:
        XS_VERSION_BOOTCHECK;
        XSRETURN_EMPTY;

void
XS_APIVERSION_invalid(...)
    PPCODE:
        XS_APIVERSION_BOOTCHECK;
        XSRETURN_EMPTY;
Commit	Line	Data
f9cc56fa NC	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 ""
88c4b02d NC	8	#undef PERL_API_VERSION_STRING
88c4b02d NC	9	#define PERL_API_VERSION_STRING "1.0.16"
f9cc56fa NC	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;
88c4b02d NC	22
	23	void
	24	XS_APIVERSION_invalid(...)
	25	PPCODE:
	26	XS_APIVERSION_BOOTCHECK;
	27	XSRETURN_EMPTY;