blob: 6c117334cf97da82136763f26cf162a48a2e92e1 (
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
|
From 1eec10393fbf1123327858d127e1f6d9e50f5a85 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Tue, 10 Oct 2017 08:17:59 +1300
Subject: Don't use signed characters for 0-255
'c' == -127 to 127
Bug: https://rt.cpan.org/Ticket/Display.html?id=123226
---
t/compare.t | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/t/compare.t b/t/compare.t
index f03d73d..3c25803 100644
--- a/t/compare.t
+++ b/t/compare.t
@@ -11,7 +11,7 @@ print "1..2\n";
# data
my $org = "";
for (my $i = 0; $i <= 255; $i++) {
- $org .= pack 'c', $i;
+ $org .= pack 'C', $i;
}
$org = $org x 17 . "more data";
--
2.14.1
|