PVFMs don't need CvDEPTH, and PVCVs don't use SvIVX, so moving

[perl5.git] / ext / B / B / Bytecode.pm

diff --git a/ext/B/B/Bytecode.pm b/ext/B/B/Bytecode.pm
index 212324c..4497d44 100644 (file)
--- a/ext/B/B/Bytecode.pm
+++ b/ext/B/B/Bytecode.pm
@@ -7,7 +7,7 @@
 
 package B::Bytecode;
 
 
 package B::Bytecode;
 

-our $VERSION = '1.01';
+our $VERSION = '1.02';

 
 use strict;
 use Config;
 
 use strict;
 use Config;


@@ -240,6 +240,7 @@ sub B::PVIV::bsave {
        # See note below in B::PVNV::bsave
        return if $sv->isa('B::AV');
        return if $sv->isa('B::HV');
        # See note below in B::PVNV::bsave
        return if $sv->isa('B::AV');
        return if $sv->isa('B::HV');

+       return if $sv->isa('B::CV');

     }
     asm "xiv", !ITHREADS && $sv->FLAGS & (SVf_FAKE|SVf_READONLY) ?
        "0 but true" : $sv->IVX;
     }
     asm "xiv", !ITHREADS && $sv->FLAGS & (SVf_FAKE|SVf_READONLY) ?
        "0 but true" : $sv->IVX;