blob: 9c243c9d106aa4072d34be97a9678553db15b131 (
plain)
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
|
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;
}
|
