Tweak for Cray-friendliness from Nicholas Clark.

p4raw-id: //depot/perl@12892

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 74c3450180..19ce50ab07 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);