Slight tweak of the code to appease Amdahl UTS cc.

p4raw-id: //depot/perl@7218

diff --git a/pp.c b/pp.c
index 8877d8a..389d12b 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -4812,8 +4812,9 @@ PP(pp_pack)
                    do {
                        double next = floor(adouble / 128);
                        *--in = (unsigned char)(adouble - (next * 128)) | 0x80;
-                       if (--in < buf)  /* this cannot happen ;-) */
+                       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 */