diff options
Diffstat (limited to 'dev-lang/perl/files/perl-5.8.8-perlcc.patch')
-rw-r--r-- | dev-lang/perl/files/perl-5.8.8-perlcc.patch | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/dev-lang/perl/files/perl-5.8.8-perlcc.patch b/dev-lang/perl/files/perl-5.8.8-perlcc.patch new file mode 100644 index 000000000..5c4b7787c --- /dev/null +++ b/dev-lang/perl/files/perl-5.8.8-perlcc.patch @@ -0,0 +1,11 @@ +--- perl-5.8.8/ext/B/B/C.pm.orig 2007-06-07 21:12:04.000000000 +0300 ++++ perl-5.8.8/ext/B/B/C.pm 2007-06-07 21:12:21.000000000 +0300 +@@ -647,7 +647,7 @@ + return $sym if defined $sym; + my $val= $sv->NVX; + $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", + $xpvnvsect->index, $sv->REFCNT , $sv->FLAGS)); + return savesym($sv, sprintf("&sv_list[%d]", $svsect->index)); |