1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
From c47bf4842c48f8c7afb3aefcebc55976debc9474 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bastien=20Roucari=C3=A8s?= <rouca@debian.org>
Date: Mon, 2 Jul 2018 18:14:55 +0200
Subject: Fix format by casting to unsigned long long
Forwarded: yes, mail
---
Indexed.xs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Indexed.xs b/Indexed.xs
index e865e0c..d5bf4bd 100644
--- a/Indexed.xs
+++ b/Indexed.xs
@@ -619,7 +619,7 @@ STORABLE_thaw(object, cloning, serialized, ...)
if (len < sizeof(SerialRev) ||
strnNE(THI_SERIAL_ID, &ps->rev.id[0], 4))
Perl_croak(aTHX_ "invalid frozen "
- XSCLASS " object (len=%d)", len);
+ XSCLASS " object (len=%lld)", (unsigned long long)len);
if (ps->rev.major != THI_SERIAL_REV_MAJOR)
Perl_croak(aTHX_ "cannot thaw incompatible "
|
