diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-24 07:25:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-24 07:25:48 +0000 |
| commit | b9ae0a2d3e1516a6a8b6fdb9d5354ef5912780c3 (patch) | |
| tree | b82126071d1246eab60e8e7737a2d42714b793fe /ext/List | |
| parent | 477413c82d4216edf78e75357a2438a3497c8216 (diff) | |
| download | perl-b9ae0a2d3e1516a6a8b6fdb9d5354ef5912780c3.tar.gz | |
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
Diffstat (limited to 'ext/List')
| -rw-r--r-- | ext/List/Util/Util.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs index 98c375889c..744d8cdf94 100644 --- 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 |