diff options
| author | Dan Sugalski <dan@sidhe.org> | 1999-06-08 07:09:38 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-06 07:00:01 +0000 |
| commit | 6520202708b2a849ca8538ed88e0f75376c3b2d7 (patch) | |
| tree | 543627af324c7f4ae271b4f2df1abe73fd0ef55e /doio.c | |
| parent | 626727d5e2c1f691a308ce30d70cf3d5998f4c53 (diff) | |
| download | perl-6520202708b2a849ca8538ed88e0f75376c3b2d7.tar.gz | |
slightly tweaked version of suggested patch
Message-Id: <3.0.6.32.19990608140938.030f12e0@ous.edu>
Subject: [PATCH 5.005_57]Use NV instead of double in the core
p4raw-id: //depot/perl@3602
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -898,7 +898,7 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp) if (SvGMAGICAL(sv)) mg_get(sv); if (SvIOK(sv) && SvIVX(sv) != 0) { - PerlIO_printf(fp, PL_ofmt, (double)SvIVX(sv)); + PerlIO_printf(fp, PL_ofmt, (NV)SvIVX(sv)); return !PerlIO_error(fp); } if ( (SvNOK(sv) && SvNVX(sv) != 0.0) |