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 / XSFalsePositive2.xs
1 MODULE = My PACKAGE = My
2
3 #ifdef MYDEF123
4
5 void
6 do(xdbh)
7    SV *xdbh
8 CODE:
9 {
10    int x;
11    ++x;
12 }
13
14 #endif
15
16 void
17 do(dbh)
18    SV *dbh
19 CODE:
20 {
21    int x;
22    ++x;
23 }