Update Changes.

[perl5.git] / pp_pack.c

diff --git a/pp_pack.c b/pp_pack.c
index be6ff6f..7dc2874 100644 (file)
--- 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 */