diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-04-27 15:57:51 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-02 16:16:35 +0000 |
| commit | 4edc9001f2ec62106f8580f228ec1bc0aadfc27b (patch) | |
| tree | 3b7544b7aa7088ed83bd5da9bbd14b7a3d68b54b /ext/B/B.pm | |
| parent | b7787f18a4d9a5b6205453133731406d627268af (diff) | |
| download | perl-4edc9001f2ec62106f8580f228ec1bc0aadfc27b.tar.gz | |
Change inheritance hierarchy of B subclassses :
Subject: @B::NV::ISA = 'B::IV';
Message-ID: <20050427135750.GD94420@plum.flirble.org>
p4raw-id: //depot/perl@24366
Diffstat (limited to 'ext/B/B.pm')
| -rw-r--r-- | ext/B/B.pm | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/ext/B/B.pm b/ext/B/B.pm index 4110fe234a..e8eb1a5b0a 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 |