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

package B::NULL;

use B::C::Std;

use B::C::Debug qw/debug verbose/;
use B::C::File  qw/svsect/;

sub do_save ( $sv, @ ) {

    # debug
    if ( $$sv == 0 ) {
        debug("NULL::save for sv = 0 called from @{[(caller(1))[3]]}");
        return "(void*)Nullsv";
    }

    my $ix = svsect()->sadd( "NULL, %Lu, 0x%x, {0}", $sv->REFCNT, $sv->FLAGS );
    debug( sv => "Saving SVt_NULL sv_list[$ix]" );

    return sprintf( "&sv_list[%d]", $ix );
}

1;