This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ParseXS - better support for duplicate ALIASes
[perl5.git] / dist / ExtUtils-ParseXS / t / XSTightDirectives.xs
CommitLineData
21af17c9
YO
1MODULE = My PACKAGE = My
2
3#ifdef MYDEF123
4void
5do(dbh)
6 SV *dbh
7CODE:
8{
9 int x;
10 ++x;
11}
12#else
13void
14do(dbh)
15 SV *dbh
16CODE:
17{
18 int x;
19 ++x;
20}
21#endif