This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Implement Socket::getaddrinfo() and Socket::getnameinfo(), with related constants
[perl5.git] / ext / XS-APItest / XSUB-undef-XS_VERSION.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 #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
14 void
15 XS_VERSION_undef(...)
16     PPCODE:
17         XS_VERSION_BOOTCHECK;
18         XSRETURN_EMPTY;