[perl5.git] / ext / XS-APItest / XSUB-undef-XS_VERSION.xs

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

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

#undef XS_VERSION
#include "XSUB.h"

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

PROTOTYPES: DISABLE

EXPORT_XSUB_SYMBOLS: ENABLE

void
XS_VERSION_undef(...)
    PPCODE:
        XS_VERSION_BOOTCHECK;
        XSRETURN_EMPTY;
Commit	Line	Data
7b20c7cd 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	#include "XSUB.h"
	8
	9	/* This can't be "MODULE = XS::APItest" as then we get duplicate bootstraps. */
	10	MODULE = XS::APItest::XSUB PACKAGE = XS::APItest::XSUB
	11
	12	PROTOTYPES: DISABLE
	13
9777c6aa S	14	EXPORT_XSUB_SYMBOLS: ENABLE
9777c6aa S	15
7b20c7cd NC	16	void
	17	XS_VERSION_undef(...)
	18	PPCODE:
	19	XS_VERSION_BOOTCHECK;
	20	XSRETURN_EMPTY;