From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 7 Nov 2001 16:01:37 +0000 (+0000)
Subject: Tweak for Cray-friendliness from Nicholas Clark.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a1e868e78b738bf013a42fa7247d72d0e6b6bba1;p=p5sagit%2Fp5-mst-13.2.git

Tweak for Cray-friendliness from Nicholas Clark.

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

diff --git a/sv.c b/sv.c
index 74c3450..19ce50a 100644
--- a/sv.c
+++ b/sv.c
@@ -5868,7 +5868,7 @@ Perl_sv_inc(pTHX_ register SV *sv)
 #endif
 	if (SvIsUV(sv)) {
 	    if (SvUVX(sv) == UV_MAX)
-		sv_setnv(sv, (NV)UV_MAX + 1.0);
+		sv_setnv(sv, UV_MAX_P1);
 	    else
 		(void)SvIOK_only_UV(sv);
 		++SvUVX(sv);