diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-03-24 22:23:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-24 21:33:42 +0000 |
| commit | 7c1b502b4c535da3880ace9c4878c1d14e7b98fd (patch) | |
| tree | 372cf926c40e0803631e66aac322d8604553c604 | |
| parent | 9543c6b6ce261f69605b716f50b00bf1f32241c0 (diff) | |
| download | perl-7c1b502b4c535da3880ace9c4878c1d14e7b98fd.tar.gz | |
pack('w') 64-bit buffer overflow
Message-ID: <20020324222308.B21963@fdgroup.com>
p4raw-id: //depot/perl@15478
| -rw-r--r-- | pp_pack.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2176,7 +2176,7 @@ Perl_pack_cat(pTHX_ SV *cat, char *pat, register char *patend, register SV **beg against UV_MAX_P1. */ if (SvIOK(fromstr) || adouble < UV_MAX_P1) { - char buf[1 + sizeof(UV)]; + char buf[(sizeof(UV)*8)/7+1]; char *in = buf + sizeof(buf); UV auv = SvUV(fromstr); |