From 4edc9001f2ec62106f8580f228ec1bc0aadfc27b Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 27 Apr 2005 15:57:51 +0100 Subject: [PATCH] Change inheritance hierarchy of B subclassses : Subject: @B::NV::ISA = 'B::IV'; Message-ID: <20050427135750.GD94420@plum.flirble.org> p4raw-id: //depot/perl@24366 --- ext/B/B.pm | 46 +++++++++++++++++++++++----------------------- 1 file changed, 23 insertions(+), 23 deletions(-) diff --git a/ext/B/B.pm b/ext/B/B.pm index 4110fe2..e8eb1a5 100644 --- a/ext/B/B.pm +++ b/ext/B/B.pm @@ -7,7 +7,7 @@ # package B; -our $VERSION = '1.07'; +our $VERSION = '1.08'; use XSLoader (); require Exporter; @@ -31,10 +31,10 @@ use strict; @B::NULL::ISA = 'B::SV'; @B::PV::ISA = 'B::SV'; @B::IV::ISA = 'B::SV'; -@B::NV::ISA = 'B::IV'; +@B::NV::ISA = 'B::SV'; @B::RV::ISA = 'B::SV'; @B::PVIV::ISA = qw(B::PV B::IV); -@B::PVNV::ISA = qw(B::PV B::NV); +@B::PVNV::ISA = qw(B::PVIV B::NV); @B::PVMG::ISA = 'B::PVNV'; # Change in the inheritance hierarchy post 5.9.0 @B::PVLV::ISA = $] > 5.009 ? 'B::GV' : 'B::PVMG'; @@ -543,26 +543,26 @@ and later this is: B::SV | - +--------------+----------------------+ - | | | - B::PV B::IV B::RV - | \ / \ - | \ / \ - | B::PVIV B::NV - \ / - \____ __/ - \ / - B::PVNV - | - | - B::PVMG - | - +-----+----+------+-----+-----+ - | | | | | | - B::BM B::AV B::GV B::HV B::CV B::IO - | | - B::PVLV | - B::FM + +--------------+----------+------------+ + | | | | + B::PV B::IV B::NV B::RV + \ / / + \ / / + B::PVIV / + \ / + \ / + \ / + B::PVNV + | + | + B::PVMG + | + +-----+----+------+-----+-----+ + | | | | | | + B::BM B::AV B::GV B::HV B::CV B::IO + | | + B::PVLV | + B::FM For 5.9.0 and earlier, PVLV is a direct subclass of PVMG, so the base -- 2.7.4