[ 21371]
Update to Scalar-List-Utils 1.13
[ 21372]
Sync with libnet 1.17
p4raw-link: @21372 on //depot/perl:
73c20b238d7378e539b3486e16ad5c6e46696374
p4raw-link: @21371 on //depot/perl:
aaaf1885c04755b7a5780e4948b19633d0243b0f
p4raw-id: //depot/maint-5.8/perl@21373
p4raw-integrated: from //depot/perl@21368 'copy in'
ext/List/Util/t/sum.t (@11853..) ext/List/Util/ChangeLog
ext/List/Util/lib/List/Util.pm ext/List/Util/lib/Scalar/Util.pm
(@20700..) ext/List/Util/Util.xs (@21354..)
+Change 827 on 2003/09/25 by <gbarr@pobox.com> (Graham Barr)
+
+ Release 1.13
+
+Change 826 on 2003/09/25 by <gbarr@pobox.com> (Graham Barr)
+
+ Fix NV casting issue with some compilers
+
Change 825 on 2003/08/14 by <gbarr@pobox.com> (Graham Barr)
Release 1.12
#ifdef SVf_IVisUV
# define slu_sv_value(sv) (SvIOK(sv)) ? (SvIOK_UV(sv)) ? (NV)(SvUVX(sv)) : (NV)(SvIVX(sv)) : (SvNV(sv))
#else
-# define slu_sv_value(sv) (SvIOK(sv)) ? (NV)(SvIVX(sv)) : SvNV(sv)
+# define slu_sv_value(sv) (SvIOK(sv)) ? (NV)(SvIVX(sv)) : (SvNV(sv))
#endif
#ifndef Drand01
@ISA = qw(Exporter);
@EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);
-$VERSION = "1.12";
+$VERSION = "1.13";
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
@ISA = qw(Exporter);
@EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype);
-$VERSION = "1.12";
+$VERSION = "1.13";
$VERSION = eval $VERSION;
sub export_fail {
use List::Util qw(sum);
-print "1..3\n";
+print "1..6\n";
print "not " if defined sum;
print "ok 1\n";
print "not " unless sum(1,2,3,4) == 10;
print "ok 3\n";
+print "not " unless sum(-1) == -1;
+print "ok 4\n";
+
+my $x = -3;
+
+print "not " unless sum($x,3) == 0;
+print "ok 5\n";
+
+print "not " unless sum(-3.5,3) == -0.5;
+print "ok 6\n";
+