diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.xs | 5 | ||||
| -rw-r--r-- | ext/Storable/Storable.xs | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 0b021bf517..a75c692461 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -24,11 +24,16 @@ static const char* const svclassnames[] = { "B::IV", "B::NV", "B::RV", +#if PERL_VERSION >= 9 + "B::BIND", +#endif "B::PV", "B::PVIV", "B::PVNV", "B::PVMG", +#if PERL_VERSION <= 8 "B::BM", +#endif #if PERL_VERSION >= 9 "B::GV", #endif diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 17a7b5c766..aa4b57dac8 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -3457,7 +3457,9 @@ static int sv_type(pTHX_ SV *sv) if (SvRMAGICAL(sv) && (mg_find(sv, 'p'))) return svis_TIED_ITEM; /* FALL THROUGH */ +#if PERL_VERSION < 9 case SVt_PVBM: +#endif if (SvRMAGICAL(sv) && (mg_find(sv, 'q'))) return svis_TIED; return SvROK(sv) ? svis_REF : svis_SCALAR; @@ -3471,6 +3473,9 @@ static int sv_type(pTHX_ SV *sv) return svis_HASH; case SVt_PVCV: return svis_CODE; +#if PERL_VERSION > 8 + /* case SVt_BIND: */ +#endif default: break; } |