B::INVLIST isa B::PV (for now)

If the compiler stumbles over a B::INVLIST treat it as B::PV
and do not error.
Also restore rudimentary B versioning support for BIND and INVLIST.

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 20794fa..4d0df90 100644 (file)
--- 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::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';
 @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 62496e2..279be53 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -21,13 +21,18 @@ typedef FILE * InputStream;
 
 static const char* const svclassnames[] = {
     "B::NULL",
 
 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",
     "B::IV",
     "B::NV",
 #if PERL_VERSION <= 10
     "B::RV",
 #endif
     "B::PV",

+#if PERL_VERSION >= 19

     "B::INVLIST",
     "B::INVLIST",

+#endif

     "B::PVIV",
     "B::PVNV",
     "B::PVMG",
     "B::PVIV",
     "B::PVNV",
     "B::PVMG",