projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Add charscript() to get the UTR#24 script names of characters.
[p5sagit/p5-mst-13.2.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 */