Viewing File: /usr/local/cpanel/3rdparty/perl/536/cpanel-lib/x86_64-linux/B/C/OverLoad/B/PVIV.pm

package B::PVIV;

use B::C::Std;

use B::C::File                     qw/xpvivsect svsect/;
use B::C::Decimal                  qw/get_integer_value/;
use B::C::Optimizer::DowngradePVXV qw/downgrade_pviv/;

sub do_save ( $sv, $fullname = undef ) {

    my $downgraded = downgrade_pviv( $sv, $fullname );
    return $downgraded if defined $downgraded;

    my ( $ix, $sym ) = svsect()->reserve($sv);
    svsect()->debug( $fullname, $sv );

    # save the PVIV
    my ( $savesym, $cur, $len, $pv, $flags ) = $sv->save_svu( $sym, $fullname );

    my $xpv_sym = 'NULL';
    if ( $sv->HAS_ANY ) {
        xpvivsect()->comment('STASH, MAGIC, cur, len, IVX');
        my $xpv_ix = xpvivsect()->sadd(
            "Nullhv, {0}, %u, {%u}, {%s}",
            $cur, $len, get_integer_value( $sv->IVX )
        );    # IVTYPE long

        $xpv_sym = sprintf( "&xpviv_list[%d]", $xpv_ix );
    }

    # save the pv
    svsect()->supdate( $ix, "%s, %u, 0x%x, {%s}", $xpv_sym, $sv->REFCNT, $flags, $savesym );

    return $sym;
}

1;