[inseparable changes from match from perl-5.003_97h to perl-5.003_97i]

[p5sagit/p5-mst-13.2.git] / pp.c

diff --git a/pp.c b/pp.c
index 68b0991..f7f0c41 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -3114,7 +3114,7 @@ PP(pp_unpack)
                    else if (++bytes >= sizeof(UV)) {   /* promote to string */
                        char *t;
 
-                       sv = newSVpvf("%0*vu", (int)(sizeof(UV) * 3), auv);
+                       sv = newSVpvf("%.*Vu", (int)TYPE_DIGITS(UV), auv);
                        while (s < strend) {
                            sv = mul128(sv, *s & 0x7f);
                            if (!(*s++ & 0x80)) {