Storing the ixv for magic arrays seems to cause double free errors on

OS X. This all feels like voodoo.

p4raw-id: //depot/perl@24879

diff --git a/ext/B/B/Bytecode.pm b/ext/B/B/Bytecode.pm
index b60651a..2d78d73 100644 (file)
--- a/ext/B/B/Bytecode.pm
+++ b/ext/B/B/Bytecode.pm
@@ -233,6 +233,9 @@ sub B::PVIV::bsave {
     $sv->ROK ?
        $sv->B::RV::bsave($ix):
        $sv->B::NULL::bsave($ix);
+    # See note below in B::PVNV::bsave
+    return if $sv->isa('B::AV');
+    return if $sv->isa('B::HV');
     asm "xiv", !ITHREADS && $sv->FLAGS & (SVf_FAKE|SVf_READONLY) ?
        "0 but true" : $sv->IVX;
 }