diff options
| author | Abigail <abigail@abigail.be> | 2000-08-15 04:06:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-18 02:02:12 +0000 |
| commit | 6b4667fc1b974ce7a433cfefaaba43c525667a61 (patch) | |
| tree | 3d2bbafa79dc9138513e6e3539bd3b4b1098ed43 /dump.c | |
| parent | 2b899b4a6ad0a96c47e1bf92850882725a1127e9 (diff) | |
| download | perl-6b4667fc1b974ce7a433cfefaaba43c525667a61.tar.gz | |
Introduce NVef, NVff, and NVgf, use the middle one.
(helps for lib/peek + Linux + long doubles) Reported in
Subject: [ID 20000814.005] Not OK: perl v5.6.0 on i686-linux-64int 2.2.13
Message-Id: <20000815040638.8524.qmail@foad.org>
(note: the lib/complex failure has not yet been addressed)
p4raw-id: //depot/perl@6685
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1047,7 +1047,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo theoret = HvKEYS(sv); theoret += theoret * theoret/pow2; PerlIO_putc(file, '\n'); - Perl_dump_indent(aTHX_ level, file, " hash quality = %.1f%%", theoret/sum*100); + Perl_dump_indent(aTHX_ level, file, " hash quality = %.1"NVff"%%", theoret/sum*100); } PerlIO_putc(file, '\n'); Perl_dump_indent(aTHX_ level, file, " KEYS = %"IVdf"\n", (IV)HvKEYS(sv)); |