diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-06-05 16:03:47 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-05 20:30:08 -0700 |
| commit | b07450211dd1f1494ceebcfe2758951f54902269 (patch) | |
| tree | 916fe55c824c7caeb2761756825bfa97f92f2b79 /ext | |
| parent | a60c099b83a336be6df44b89eb468b0cdfe351ca (diff) | |
| download | perl-b07450211dd1f1494ceebcfe2758951f54902269.tar.gz | |
Fix version logic in B.xs
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.xs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 80bd0f9eb3..a4c6731683 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1164,16 +1164,14 @@ BOOT: #ifdef USE_ITHREADS cv = newXS("B::PMOP::pmoffset", XS_B__OP_next, __FILE__); XSANY.any_i32 = PMOP_pmoffset_ix; -# if PERL_VERSION >= 17 -# ifdef CopSTASH_len +# if PERL_VERSION < 17 || defined(CopSTASH_len) cv = newXS("B::COP::stashpv", XS_B__OP_next, __FILE__); XSANY.any_i32 = COP_stashpv_ix; cv = newXS("B::COP::file", XS_B__OP_next, __FILE__); XSANY.any_i32 = COP_file_ix; -# else +# else cv = newXS("B::COP::stashoff", XS_B__OP_next, __FILE__); XSANY.any_i32 = COP_stashoff_ix; -# endif # endif #else cv = newXS("B::COP::stash", XS_B__OP_next, __FILE__); |