From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 7 Dec 2005 08:30:26 +0000 (+0000)
Subject: 3 instances of SvIsUV_on(sv); can be replaced with one.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4b0c957394e7f4b4f3c18e4601dd5a8c649fab82;p=p5sagit%2Fp5-mst-13.2.git

3 instances of SvIsUV_on(sv); can be replaced with one.

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

diff --git a/sv.c b/sv.c
index 6f2b847..f9d10fc 100644
--- a/sv.c
+++ b/sv.c
@@ -1801,19 +1801,17 @@ S_sv_2iuv_common(pTHX_ SV *sv) {
                     SvIsUV_on(sv);
                     /* Integer is inaccurate. NOK, IOKp, is UV */
                     SvUV_set(sv, UV_MAX);
-                    SvIsUV_on(sv);
                 } else {
                     SvUV_set(sv, U_V(SvNVX(sv)));
                     /* 0xFFFFFFFFFFFFFFFF not an issue in here, NVs
                        NV preservse UV so can do correct comparison.  */
                     if ((NV)(SvUVX(sv)) == SvNVX(sv)) {
                         SvIOK_on(sv);
-                        SvIsUV_on(sv);
                     } else {
                         /* Integer is imprecise. NOK, IOKp, is UV */
-                        SvIsUV_on(sv);
                     }
                 }
+		SvIsUV_on(sv);
             }
 #else /* NV_PRESERVES_UV */
             if ((numtype & (IS_NUMBER_IN_UV | IS_NUMBER_NOT_INT))