1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
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 ]);
}
|
