From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 9 Jun 2001 16:26:10 +0000 (+0100)
Subject: Re: pragma/locale.t #107
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=560b0c4689b6e31fce48b1c9d1501740be901c76;p=p5sagit%2Fp5-mst-13.2.git

Re: pragma/locale.t #107
Message-ID: <20010609162609.V76396@plum.flirble.org>

A missing NVification.

p4raw-id: //depot/perl@10484
---

diff --git a/sv.c b/sv.c
index 76481dc..fe6d11e 100644
--- a/sv.c
+++ b/sv.c
@@ -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) >