diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-08-10 19:06:03 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2016-08-11 09:36:21 -0400 |
commit | 82229f9f47d9a169b59715582fb5a09b5a4ac0ff (patch) | |
tree | d35c56c639c344fbac2babbc359aaa721ccba955 /sv.c | |
parent | 520f3e58c346a7bc3ef0509dfe0db206dae454ee (diff) | |
download | perl-82229f9f47d9a169b59715582fb5a09b5a4ac0ff.tar.gz |
[rt.perl.org #128888]: printf %a mishandles zero precision
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -12510,7 +12510,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) { |