diff options
author | Tony Cook <tony@develop-help.com> | 2016-09-07 16:51:39 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2017-01-17 09:30:37 +1100 |
commit | bf4a926a29374161655548b149d1cb37300bcc05 (patch) | |
tree | 5083e376e56591b70b6c651bf02c99703da5d772 /pp_pack.c | |
parent | 14ebef5fba328c5f6d6b522b2af648a970b181b1 (diff) | |
download | perl-bf4a926a29374161655548b149d1cb37300bcc05.tar.gz |
(perl #129149) avoid a heap buffer overflow with pack "W"...
Diffstat (limited to 'pp_pack.c')
-rw-r--r-- | pp_pack.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2587,7 +2587,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist ) if (in_bytes) auv = auv % 0x100; if (utf8) { W_utf8: - if (cur > end) { + if (cur >= end) { *cur = '\0'; SvCUR_set(cat, cur - start); |