X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_pack.c;h=7dc28747eb1e490c50927639e3d64244d4216f15;hb=e882dd6753c26e02b7dbf9e7c3e89bae261f600d;hp=be6ff6f9ffbdd0b46612363ad9d9723b89ff5801;hpb=a6ec74c1448e028e8d796742c81e78fb067bf603;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_pack.c b/pp_pack.c
index be6ff6f..7dc2874 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1669,7 +1669,6 @@ PP(pp_pack)
 			*--in = (unsigned char)(adouble - (next * 128)) | 0x80;
 			if (in <= buf)  /* this cannot happen ;-) */
 			    DIE(aTHX_ "Cannot compress integer");
-			in--;
 			adouble = next;
 		    } while (adouble > 0);
 		    buf[sizeof(buf) - 1] &= 0x7f; /* clear continue bit */