diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-08-10 19:06:03 -0400 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2017-08-09 13:21:22 +0100 |
commit | d15a497c9bb1d2a73a822955cad1abb2fbfb4b1f (patch) | |
tree | c1ec60bc25e6c5b585fc0b0eda781002f7966b06 /sv.c | |
parent | 94cbfa8253168c403fd531381fa27326a207de64 (diff) | |
download | perl-d15a497c9bb1d2a73a822955cad1abb2fbfb4b1f.tar.gz |
[rt.perl.org #128888]: printf %a mishandles zero precision
(cherry picked from commit 82229f9f47d9a169b59715582fb5a09b5a4ac0ff)
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -12518,7 +12518,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p v0 = vhex; } - if (precis > 0) { + if (has_precis) { U8* ve = (subnormal ? vlnz + 1 : vend); SSize_t vn = ve - (subnormal ? vfnz : vhex); if ((SSize_t)(precis + 1) < vn) { |