From: Alexandr Savca <alexandr.savca89@gmail.com>
Date: Mon, 8 Oct 2018 14:32:44 +0000 (+0300)
Subject: fix wrong number of parameters for macro SHIFT_VAR
X-Git-Tag: v5.29.4~22
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/c0f2b6364ca7b765c5d5e346d5b25ca1a455dba4

fix wrong number of parameters for macro SHIFT_VAR
---

diff --git a/pp_pack.c b/pp_pack.c
index f8be9d4..5f1a599 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1378,8 +1378,7 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c
 #if SHORTSIZE != SIZE16
 	    while (len-- > 0) {
 		unsigned short aushort;
-                SHIFT_VAR(utf8, s, strend, aushort, datumtype, needs_swap,
-                          needs_swap);
+		SHIFT_VAR(utf8, s, strend, aushort, datumtype, needs_swap);
 		if (!checksum)
 		    mPUSHu(aushort);
 		else if (checksum > bits_in_uv)