diff options
| -rw-r--r-- | ext/B/B.pm | 1 | ||||
| -rw-r--r-- | ext/B/B.xs | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/ext/B/B.pm b/ext/B/B.pm index 20794fa42e..4d0df907c7 100644 --- a/ext/B/B.pm +++ b/ext/B/B.pm @@ -48,6 +48,7 @@ push @B::EXPORT_OK, (qw(minus_c ppname save_BEGINs @B::PVNV::ISA = qw(B::PVIV B::NV); @B::PVMG::ISA = 'B::PVNV'; @B::REGEXP::ISA = 'B::PVMG' if $] >= 5.011; +@B::INVLIST::ISA = 'B::PV' if $] >= 5.019; @B::PVLV::ISA = 'B::GV'; @B::BM::ISA = 'B::GV'; @B::AV::ISA = 'B::PVMG'; diff --git a/ext/B/B.xs b/ext/B/B.xs index 62496e2c68..279be53d5c 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -21,13 +21,18 @@ typedef FILE * InputStream; static const char* const svclassnames[] = { "B::NULL", +#if PERL_VERSION < 19 + "B::BIND", +#endif "B::IV", "B::NV", #if PERL_VERSION <= 10 "B::RV", #endif "B::PV", +#if PERL_VERSION >= 19 "B::INVLIST", +#endif "B::PVIV", "B::PVNV", "B::PVMG", |