From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 20 Feb 2002 16:26:56 +0000 (+0000)
Subject: Forgot from #14790.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=735b914b6122ad8117831a13734ab73e13d1e5bc;p=p5sagit%2Fp5-mst-13.2.git

Forgot from #14790.

p4raw-id: //depot/perl@14793
---

diff --git a/pp_pack.c b/pp_pack.c
index b66d682..61185a4 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1720,8 +1720,27 @@ PP(pp_pack)
 		    buf[sizeof(buf) - 1] &= 0x7f; /* clear continue bit */
 		    sv_catpvn(cat, in, (buf + sizeof(buf)) - in);
 		}
-		else
-		    DIE(aTHX_ "Cannot compress non integer");
+		else {
+		    char           *from, *result, *in;
+		    SV             *norm;
+		    STRLEN          len;
+		    bool            done;
+
+		    /* Copy string and check for compliance */
+		    from = SvPV(fromstr, len);
+		    if ((norm = is_an_int(from, len)) == NULL)
+			DIE(aTHX_ "can compress only unsigned integer");
+
+		    New('w', result, len, char);
+		    in = result + len;
+		    done = FALSE;
+		    while (!done)
+			*--in = div128(norm, &done) | 0x80;
+		    result[len - 1] &= 0x7F; /* clear continue bit */
+		    sv_catpvn(cat, in, (result + len) - in);
+		    Safefree(result);
+		    SvREFCNT_dec(norm);	/* free norm */
+               }
 	    }
             break;
 	case 'i':