From 3e05d643b0c50d21c02db146b48decb3820ad736 Mon Sep 17 00:00:00 2001
From: TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com>
Date: Wed, 11 Aug 2021 22:38:50 +0900
Subject: Storable.xs: Fix a (possible) typo in byte-masking expression.

The containing function (Sntohl) seems to be never compiled because
<perl.h> always defines HAS_NTOHL, so no visible change is expected.
---
 dist/Storable/Storable.xs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index 30fd69fbec..d96f4fac3f 100644
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -1247,7 +1247,7 @@ static const char byteorderstr_56[] = {BYTEORDER_BYTES_56, 0};
 #    define Sntohl(x) (x)
 #  else
 static U32 Sntohl(U32 x) {
-    return (((U8) x) << 24) + ((x * 0xFF00) << 8)
+    return (((U8) x) << 24) + ((x & 0xFF00) << 8)
 	+ ((x & 0xFF0000) >> 8) + ((x & 0xFF000000) >> 24);
 }
 #  endif
-- 
cgit v1.2.1