commit: d9a4c4a5bce7bb45f75c5552adf4e799b6bcb829 Author: Sam James <sam <AT> gentoo <DOT> org> AuthorDate: Tue Mar 12 05:52:32 2024 +0000 Commit: Sam James <sam <AT> gentoo <DOT> org> CommitDate: Tue Mar 12 05:52:32 2024 +0000 URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=d9a4c4a5
dev-perl/Unicode-UTF8: fix 32-bit tests Closes: https://bugs.gentoo.org/925365 Signed-off-by: Sam James <sam <AT> gentoo.org> .../Unicode-UTF8/Unicode-UTF8-0.620.0-r1.ebuild | 6 ++- .../files/Unicode-UTF8-0.620.0-32-bit.patch | 52 ++++++++++++++++++++++ 2 files changed, 57 insertions(+), 1 deletion(-) diff --git a/dev-perl/Unicode-UTF8/Unicode-UTF8-0.620.0-r1.ebuild b/dev-perl/Unicode-UTF8/Unicode-UTF8-0.620.0-r1.ebuild index efe2e84c7e4d..9bf3e2d925c5 100644 --- a/dev-perl/Unicode-UTF8/Unicode-UTF8-0.620.0-r1.ebuild +++ b/dev-perl/Unicode-UTF8/Unicode-UTF8-0.620.0-r1.ebuild @@ -1,4 +1,4 @@ -# Copyright 1999-2022 Gentoo Authors +# Copyright 1999-2024 Gentoo Authors # Distributed under the terms of the GNU General Public License v2 EAPI=8 @@ -30,6 +30,10 @@ BDEPEND="${RDEPEND} ) " +PATCHES=( + "${FILESDIR}"/${PN}-0.620.0-32-bit.patch +) + src_test() { perl_rm_files t/999_pod.t perl-module_src_test diff --git a/dev-perl/Unicode-UTF8/files/Unicode-UTF8-0.620.0-32-bit.patch b/dev-perl/Unicode-UTF8/files/Unicode-UTF8-0.620.0-32-bit.patch new file mode 100644 index 000000000000..9c243c9d106a --- /dev/null +++ b/dev-perl/Unicode-UTF8/files/Unicode-UTF8-0.620.0-32-bit.patch @@ -0,0 +1,52 @@ +https://bugs.gentoo.org/925365 +https://rt.cpan.org/Public/Bug/Display.html?id=127007 +https://github.com/chansen/p5-unicode-utf8/pull/3 + +From cb30ee19c31a27254c709b78451159d89c377beb Mon Sep 17 00:00:00 2001 +From: "E. Choroba" <chor...@matfyz.cz> +Date: Thu, 6 Dec 2018 14:42:09 +0100 +Subject: [PATCH 1/2] Fix 080_super.t for 32-bit + +Copied from https://rt.cpan.org/Public/Bug/Display.html?id=127007. +--- a/t/080_super.t ++++ b/t/080_super.t +@@ -1,5 +1,6 @@ + #!perl + ++use Config; + use strict; + use warnings; + use lib 't'; +@@ -16,8 +17,12 @@ my @SUPER = (); + for (my $i = 0x0011_0000; $i < 0x7FFF_FFFF; $i += 0x200000) { + push @SUPER, $i; + } +- for (my $i = 0x8000_0000; $i < 0xFFFF_FFFF; $i += 0x400000) { +- push @SUPER, $i; ++ ++ # Doesn't work on 32 bit. ++ if ($Config{ptrsize} == 8) { ++ for (my $i = 0x8000_0000; $i < 0xFFFF_FFFF; $i += 0x400000) { ++ push @SUPER, $i; ++ } + } + } + + +From f989eaedfe83639c7be35fd429af36452ebaf1d2 Mon Sep 17 00:00:00 2001 +From: "E. Choroba" <chor...@matfyz.cz> +Date: Tue, 11 Dec 2018 17:30:13 +0100 +Subject: [PATCH 2/2] fixup! Fix 080_super.t for 32-bit + +--- a/t/080_super.t ++++ b/t/080_super.t +@@ -19,7 +19,7 @@ my @SUPER = (); + } + + # Doesn't work on 32 bit. +- if ($Config{ptrsize} == 8) { ++ if ($Config{ivsize} > 4) { + for (my $i = 0x8000_0000; $i < 0xFFFF_FFFF; $i += 0x400000) { + push @SUPER, $i; + } +
