diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-31 18:09:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-31 18:09:20 +0000 |
| commit | 59155cc063cf4bfd6a5bac9ec4e936509becfd87 (patch) | |
| tree | 061f9c41a59986ca3ad35e19813701e7e11de88e /sv.c | |
| parent | f4a14a62773a52915497a005f3032730fe6154fd (diff) | |
| download | perl-59155cc063cf4bfd6a5bac9ec4e936509becfd87.tar.gz | |
Forget about NV_MAX (#6951). Various floating point tweaks,
ideas from Eric Fifer, Yitzchak, Alan, and Spider.
p4raw-id: //depot/perl@6953
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2212,7 +2212,8 @@ Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp) * --jhi Sep 1999 */ if (SvTYPE(sv) < SVt_PVNV) sv_upgrade(sv, SVt_PVNV); - SvGROW(sv, NV_DIG + 10); /* sign, decimal separator, e+NNNNN, nul */ + /* The +20 is pure guesswork. Configure test needed. --jhi */ + SvGROW(sv, NV_DIG + 20); s = SvPVX(sv); olderrno = errno; /* some Xenix systems wipe out errno here */ #ifdef apollo |