diff options
| author | Alan Burlison <Alan.Burlison@uk.sun.com> | 2000-08-30 23:39:52 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-30 22:38:18 +0000 |
| commit | 8aad8eb3dfb3dbc6b4d3419728cca9a2bc68a6cc (patch) | |
| tree | ccca40b6e127540a0932831870e60ab77bda0bed /sv.c | |
| parent | 781948c1583a5f5ebfc81f555afb2130e6f6ec63 (diff) | |
| download | perl-8aad8eb3dfb3dbc6b4d3419728cca9a2bc68a6cc.tar.gz | |
Heap decorruption.
Subject: [PATCH] Fix for miniperl coredump on Solaris with -Duselongdouble
Message-ID: <39AD7F28.A06533CF@uk.sun.com>
p4raw-id: //depot/perl@6929
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2207,12 +2207,12 @@ Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp) } if (SvNOKp(sv)) { /* See note in sv_2uv() */ /* XXXX 64-bit? IV may have better precision... */ - /* I tried changing this for to be 64-bit-aware and + /* I tried changing this to be 64-bit-aware and * the t/op/numconvert.t became very, very, angry. * --jhi Sep 1999 */ if (SvTYPE(sv) < SVt_PVNV) sv_upgrade(sv, SVt_PVNV); - SvGROW(sv, 28); + SvGROW(sv, NV_DIG + 1); s = SvPVX(sv); olderrno = errno; /* some Xenix systems wipe out errno here */ #ifdef apollo |