Blame perl-5.8.8-bz199736.patch
|
jvdias |
6c3b438 |
--- perl-5.8.8/ext/B/B/C.pm.bz199736 2006-01-13 09:47:39.000000000 -0500
|
|
jvdias |
6c3b438 |
+++ perl-5.8.8/ext/B/B/C.pm 2006-07-21 20:25:39.000000000 -0400
|
|
jvdias |
6c3b438 |
@@ -647,7 +647,7 @@
|
|
jvdias |
6c3b438 |
return $sym if defined $sym;
|
|
jvdias |
6c3b438 |
my $val= $sv->NVX;
|
|
jvdias |
6c3b438 |
$val .= '.00' if $val =~ /^-?\d+$/;
|
|
jvdias |
6c3b438 |
- $xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->IVX, $val));
|
|
jvdias |
6c3b438 |
+ $xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->NVX, $val));
|
|
jvdias |
6c3b438 |
$svsect->add(sprintf("&xpvnv_list[%d], %lu, 0x%x",
|
|
jvdias |
6c3b438 |
$xpvnvsect->index, $sv->REFCNT , $sv->FLAGS));
|
|
jvdias |
6c3b438 |
return savesym($sv, sprintf("&sv_list[%d]", $svsect->index));
|