gentoo/dev-perl/Unicode-UTF8/files/Unicode-UTF8-0.620.0-32-bit.patch

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" <choroba@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" <choroba@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;
         }

--- a/t/080_super.t
+++ b/t/080_super.t
@@ -5,10 +5,17 @@ use strict;
 use warnings;
 use lib 't';
 
-use Test::More tests => 1537;
+use Test::More;
 use Util       qw[throws_ok];
 
 BEGIN {
+    if ($Config{ivsize} > 4) {
+        plan tests => 1537;
+    }
+    else {
+        plan tests => 1025;
+    }
+
     use_ok('Unicode::UTF8', qw[ encode_utf8 ]);
 }