… | |
… | |
19 | #define PERL_VERSION_ATLEAST(a,b,c) \ |
19 | #define PERL_VERSION_ATLEAST(a,b,c) \ |
20 | (PERL_REVISION > (a) \ |
20 | (PERL_REVISION > (a) \ |
21 | || (PERL_REVISION == (a) \ |
21 | || (PERL_REVISION == (a) \ |
22 | && (PERL_VERSION > (b) \ |
22 | && (PERL_VERSION > (b) \ |
23 | || (PERL_VERSION == (b) && PERL_SUBVERSION >= (c))))) |
23 | || (PERL_VERSION == (b) && PERL_SUBVERSION >= (c))))) |
|
|
24 | |
|
|
25 | #ifndef PERL_MAGIC_ext |
|
|
26 | # define PERL_MAGIC_ext '~' |
|
|
27 | #endif |
24 | |
28 | |
25 | #if !PERL_VERSION_ATLEAST (5,6,0) |
29 | #if !PERL_VERSION_ATLEAST (5,6,0) |
26 | # ifndef PL_ppaddr |
30 | # ifndef PL_ppaddr |
27 | # define PL_ppaddr ppaddr |
31 | # define PL_ppaddr ppaddr |
28 | # endif |
32 | # endif |