View | Details | Raw Unified
Collapse All | Expand All

(-) perl-5.8.8/ext/B/B/C.pm.orig (-1 / +1 lines)
 Lines 647-653    Link Here  
    return $sym if defined $sym;
    return $sym if defined $sym;
    my $val= $sv->NVX;
    my $val= $sv->NVX;
    $val .= '.00' if $val =~ /^-?\d+$/;
    $val .= '.00' if $val =~ /^-?\d+$/;
    $xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->IVX, $val));
 
    $xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->NVX, $val));
 
    $svsect->add(sprintf("&xpvnv_list[%d], %lu, 0x%x",
    $svsect->add(sprintf("&xpvnv_list[%d], %lu, 0x%x",
			 $xpvnvsect->index, $sv->REFCNT , $sv->FLAGS));
			 $xpvnvsect->index, $sv->REFCNT , $sv->FLAGS));
    return savesym($sv, sprintf("&sv_list[%d]", $svsect->index));
    return savesym($sv, sprintf("&sv_list[%d]", $svsect->index));