diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-06-09 17:26:10 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-09 14:47:25 +0000 |
| commit | 560b0c4689b6e31fce48b1c9d1501740be901c76 (patch) | |
| tree | 9ddf4bbf94ac761c2423adcda02b1b4b9c623fc3 /sv.c | |
| parent | 9ccde9ea2bb57aed1bc0b0aa9ab7efb13c7c1a15 (diff) | |
| download | perl-560b0c4689b6e31fce48b1c9d1501740be901c76.tar.gz | |
Re: pragma/locale.t #107
Message-ID: <20010609162609.V76396@plum.flirble.org>
A missing NVification.
p4raw-id: //depot/perl@10484
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2070,6 +2070,7 @@ Perl_sv_2iv(pTHX_ register SV *sv) /* The IV slot will have been set from value returned by grok_number above. The NV slot has just been set using Atof. */ + SvNOK_on(sv); assert (SvIOKp(sv)); } else { if (((UV)1 << NV_PRESERVES_UV_BITS) > @@ -2346,6 +2347,7 @@ Perl_sv_2uv(pTHX_ register SV *sv) /* The UV slot will have been set from value returned by grok_number above. The NV slot has just been set using Atof. */ + SvNOK_on(sv); assert (SvIOKp(sv)); } else { if (((UV)1 << NV_PRESERVES_UV_BITS) > |