This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #123874] fix argument underflow for pack()
authorHugo van der Sanden <hv@crypt.org>
Wed, 18 Feb 2015 14:59:53 +0000 (14:59 +0000)
committerHugo van der Sanden <hv@crypt.org>
Wed, 18 Feb 2015 16:06:58 +0000 (16:06 +0000)
commitfc1bb3f2dcaaac9f305b27acb4800babdc8a06f3
tree816deaca5b07a9b4e59bc1b8066a321abb5e7ef0
parentd0bec20370cb0ec3e757fde65d8f1d13693e913f
[perl #123874] fix argument underflow for pack()

NEXTFROM() modified the item count while testing it, so the next use
saw the count (of -1) as non-zero and ended up trying to write ~1 bytes.
pp_pack.c
t/op/pack.t