diff options
author | Christian Hartmann <ian@gentoo.org> | 2007-08-19 11:29:32 +0000 |
---|---|---|
committer | Christian Hartmann <ian@gentoo.org> | 2007-08-19 11:29:32 +0000 |
commit | 773b5fc1d650052ac6e65c6e44308d7b78f8290f (patch) | |
tree | 3bed14b1dfe80880ff545a08c4b83d06d558f16c /dev-lang/perl/files/perl-5.8.8-perlcc.patch | |
parent | Fix unicode encoding error which prevented application startup. (diff) | |
download | gentoo-2-773b5fc1d650052ac6e65c6e44308d7b78f8290f.tar.gz gentoo-2-773b5fc1d650052ac6e65c6e44308d7b78f8290f.tar.bz2 gentoo-2-773b5fc1d650052ac6e65c6e44308d7b78f8290f.zip |
Fixed bug #181229
(Portage version: 2.1.3.6)
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 000000000000..5c4b7787cf51 --- /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)); |