diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2017-09-22 11:10:18 +0100 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2017-09-22 11:10:18 +0100 |
commit | 9cdceef4a20beadabf31e63ceddbbb6fb7858583 (patch) | |
tree | d77087cfe85bd376d2582041df1ab63872116d7f /cpan/Scalar-List-Utils | |
parent | 07e6e0356e959c4ea689efa493e3deec6669eb89 (diff) | |
download | perl-9cdceef4a20beadabf31e63ceddbbb6fb7858583.tar.gz |
Update Scalar-List-Utils to CPAN version 1.49
[DELTA]
1.49 -- 2017-09-08 12:25:54
[CHANGES]
* Fixes for unit tests to pass on perl 5.6.2
* Fix typo in documentation
Diffstat (limited to 'cpan/Scalar-List-Utils')
-rw-r--r-- | cpan/Scalar-List-Utils/lib/List/Util.pm | 4 | ||||
-rw-r--r-- | cpan/Scalar-List-Utils/lib/List/Util/XS.pm | 2 | ||||
-rw-r--r-- | cpan/Scalar-List-Utils/lib/Scalar/Util.pm | 2 | ||||
-rw-r--r-- | cpan/Scalar-List-Utils/lib/Sub/Util.pm | 2 | ||||
-rw-r--r-- | cpan/Scalar-List-Utils/t/product.t | 4 | ||||
-rw-r--r-- | cpan/Scalar-List-Utils/t/rt-96343.t | 4 | ||||
-rw-r--r-- | cpan/Scalar-List-Utils/t/sum.t | 1 | ||||
-rw-r--r-- | cpan/Scalar-List-Utils/t/uniq.t | 7 |
8 files changed, 16 insertions, 10 deletions
diff --git a/cpan/Scalar-List-Utils/lib/List/Util.pm b/cpan/Scalar-List-Utils/lib/List/Util.pm index 4a03af815a..035f67f3a3 100644 --- a/cpan/Scalar-List-Utils/lib/List/Util.pm +++ b/cpan/Scalar-List-Utils/lib/List/Util.pm @@ -15,7 +15,7 @@ our @EXPORT_OK = qw( all any first min max minstr maxstr none notall product reduce sum sum0 shuffle uniq uniqnum uniqstr pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst ); -our $VERSION = "1.48"; +our $VERSION = "1.49"; our $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -116,7 +116,7 @@ C<undef> being returned The above example code blocks also suggest how to use C<reduce> to build a more efficient combined version of one of these basic functions and a C<map> -block. For example, to find the total length of the all the strings in a list, +block. For example, to find the total length of all the strings in a list, we could use $total = sum map { length } @strings; diff --git a/cpan/Scalar-List-Utils/lib/List/Util/XS.pm b/cpan/Scalar-List-Utils/lib/List/Util/XS.pm index c870411578..10429a71f5 100644 --- a/cpan/Scalar-List-Utils/lib/List/Util/XS.pm +++ b/cpan/Scalar-List-Utils/lib/List/Util/XS.pm @@ -3,7 +3,7 @@ use strict; use warnings; use List::Util; -our $VERSION = "1.48"; # FIXUP +our $VERSION = "1.49"; # FIXUP $VERSION = eval $VERSION; # FIXUP 1; diff --git a/cpan/Scalar-List-Utils/lib/Scalar/Util.pm b/cpan/Scalar-List-Utils/lib/Scalar/Util.pm index ad36af3b60..00edd3b2c7 100644 --- a/cpan/Scalar-List-Utils/lib/Scalar/Util.pm +++ b/cpan/Scalar-List-Utils/lib/Scalar/Util.pm @@ -17,7 +17,7 @@ our @EXPORT_OK = qw( dualvar isdual isvstring looks_like_number openhandle readonly set_prototype tainted ); -our $VERSION = "1.48"; +our $VERSION = "1.49"; $VERSION = eval $VERSION; require List::Util; # List::Util loads the XS diff --git a/cpan/Scalar-List-Utils/lib/Sub/Util.pm b/cpan/Scalar-List-Utils/lib/Sub/Util.pm index b4ec6ac75c..ecfab702cd 100644 --- a/cpan/Scalar-List-Utils/lib/Sub/Util.pm +++ b/cpan/Scalar-List-Utils/lib/Sub/Util.pm @@ -15,7 +15,7 @@ our @EXPORT_OK = qw( subname set_subname ); -our $VERSION = "1.48"; +our $VERSION = "1.49"; $VERSION = eval $VERSION; require List::Util; # as it has the XS diff --git a/cpan/Scalar-List-Utils/t/product.t b/cpan/Scalar-List-Utils/t/product.t index 1aad877531..7b5894add3 100644 --- a/cpan/Scalar-List-Utils/t/product.t +++ b/cpan/Scalar-List-Utils/t/product.t @@ -112,8 +112,12 @@ SKIP: { is($t, (1<<31) - (1<<62), 'min * max'); $t = product($max, $min); is($t, (1<<31) - (1<<62), 'max * min'); + + SKIP: { + skip "known to fail on $]", 1 if $] le "5.006002"; $t = product($max, $max); is($t, (1<<62)-(1<<32)+1, 'max * max'); + } $t = product($min*8, $min); cmp_ok($t, '>', (1<<61), 'min*8*min'); # may be an NV diff --git a/cpan/Scalar-List-Utils/t/rt-96343.t b/cpan/Scalar-List-Utils/t/rt-96343.t index 5328a411db..4deedcb676 100644 --- a/cpan/Scalar-List-Utils/t/rt-96343.t +++ b/cpan/Scalar-List-Utils/t/rt-96343.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More; +use Test::More tests => 2; { use List::Util qw( first ); @@ -31,5 +31,3 @@ use Test::More; is( $var, 'HellO WorlD', 'any (lc$_) leaves value undisturbed' ); } - -done_testing; diff --git a/cpan/Scalar-List-Utils/t/sum.t b/cpan/Scalar-List-Utils/t/sum.t index 4639a8ac8d..1b7258c30a 100644 --- a/cpan/Scalar-List-Utils/t/sum.t +++ b/cpan/Scalar-List-Utils/t/sum.t @@ -92,6 +92,7 @@ is($v, $v1 + 42 + 2, 'bigint + builtin int'); SKIP: { skip "IV is not at least 64bit", 3 unless $Config{ivsize} >= 8; + skip "known to fail on $]", 3 if $] le "5.006002"; # Sum using NV will only preserve 53 bits of integer precision my $t = sum(1<<60, 1); diff --git a/cpan/Scalar-List-Utils/t/uniq.t b/cpan/Scalar-List-Utils/t/uniq.t index 5a6925d1f5..105c499bae 100644 --- a/cpan/Scalar-List-Utils/t/uniq.t +++ b/cpan/Scalar-List-Utils/t/uniq.t @@ -43,7 +43,8 @@ is_deeply( [ uniqstr qw( 1 1.0 1E0 ) ], 'uniqstr on undef coerces to empty-string' ); } -{ +SKIP: { + skip 'Perl 5.007003 with utf8::encode is required', 3 if $] lt "5.007003"; my $warnings = ""; local $SIG{__WARN__} = sub { $warnings .= join "", @_ }; @@ -123,7 +124,9 @@ is_deeply( [ uniq () ], is( scalar( uniqstr qw( a b c d a b e ) ), 5, 'uniqstr() in scalar context' ); -{ +SKIP: { + skip "known to fail on $]", 1 if $] le "5.006002"; + package Stringify; use overload '""' => sub { return $_[0]->{str} }; |