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

package SV;

use B::C::Std;

sub save ( $sv, @ ) {

    # This is where we catch an honest-to-goodness Nullsv (which gets
    # blessed into B::SV explicitly) and any stray erroneous SVs.
    return 0 unless $$sv;
    warn sprintf( "cannot save that type of SV: %s (0x%x)\n", class($sv), $$sv );
}

1;