diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2015-11-28 17:45:19 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-11-28 22:05:34 -0500 |
commit | 4755cf0153b43de3331f3442033278c6151cb5e8 (patch) | |
tree | 182a122ed83cf4b4cdb60a61c1ffeb6b93375acd /sv.c | |
parent | 7ee537e6b26d5ad4b6fccdd5746419494a9a6add (diff) | |
download | perl-4755cf0153b43de3331f3442033278c6151cb5e8.tar.gz |
hexfp: printf %a for negative zero.
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -12363,7 +12363,9 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p # endif #endif - if (fv < 0) + if (fv < 0 + || Perl_signbit(fv) + ) *p++ = '-'; else if (plus) *p++ = plus; |