This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
APItest: Add comprehensive UTF-8 validity tests
[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
EXPORT_XSUB_SYMBOLS: ENABLE
15
16
void
17
XS_VERSION_undef(...)
18
PPCODE:
19
XS_VERSION_BOOTCHECK;
20
XSRETURN_EMPTY;