Re: encoding neutral unpack

From: perl5-porters[at]ton.iguana.be (Ton Hospel)
Message-ID: <ctg09g$j0e$1[at]post.home.lunix>

Forgotten character progress while checksumming over partial
b or B format. (plus a regression test)

p4raw-id: //depot/perl@23915

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_pack.c b/pp_pack.c
index 8f76d69c66..cb3dd89cbe 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1085,7 +1085,7 @@ S_unpack_rec(pTHX_ register tempsym_t* symptr, register char *s, char *strbeg, c
 		    len -= 8;
 		}
 		if (len) {
-		    bits = *s;
+		    bits = *s++;
 		    if (datumtype == 'b') {
 			while (len-- > 0) {
 			    if (bits & 1) cuv++;