A fix from Graham for

[perl #24012] Weird conversion issue with List::Util::sum on Linux/AMD 850MHz
(seemingly a NV casting issue)

p4raw-id: //depot/perl@21354

diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs
index 98c3758..744d8cd 100644 (file)
--- a/ext/List/Util/Util.xs
+++ b/ext/List/Util/Util.xs
@@ -47,9 +47,9 @@ my_cxinc(pTHX)
 #endif
 
 #ifdef SVf_IVisUV
-#  define slu_sv_value(sv) (NV)(SvIOK(sv) ? SvIOK_UV(sv) ? SvUVX(sv) : SvIVX(sv) : SvNV(sv))
+#  define slu_sv_value(sv) (SvIOK(sv)) ? (SvIOK_UV(sv)) ? (NV)(SvUVX(sv)) : (NV)(SvIVX(sv)) : (SvNV(sv))
 #else
-#  define slu_sv_value(sv) (NV)(SvIOK(sv) ? SvIVX(sv) : SvNV(sv))
+#  define slu_sv_value(sv) (SvIOK(sv)) ? (NV)(SvIVX(sv)) : SvNV(sv)
 #endif
 
 #ifndef Drand01