Slight tweak of the code to appease Amdahl UTS cc.

p4raw-id: //depot/perl@7218

1 files changed, 2 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 8877d8a469..389d12b2f5 100644
--- 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 */