This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Scalar-List-Utils to CPAN version 1.49
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 22 Sep 2017 10:10:18 +0000 (11:10 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 22 Sep 2017 10:10:18 +0000 (11:10 +0100)
  [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

Porting/Maintainers.pl
cpan/Scalar-List-Utils/lib/List/Util.pm
cpan/Scalar-List-Utils/lib/List/Util/XS.pm
cpan/Scalar-List-Utils/lib/Scalar/Util.pm
cpan/Scalar-List-Utils/lib/Sub/Util.pm
cpan/Scalar-List-Utils/t/product.t
cpan/Scalar-List-Utils/t/rt-96343.t
cpan/Scalar-List-Utils/t/sum.t
cpan/Scalar-List-Utils/t/uniq.t

index b4bffbc..8f186ce 100755 (executable)
@@ -957,7 +957,7 @@ use File::Glob qw(:case);
     },
 
     'Scalar-List-Utils' => {
-        'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.48.tar.gz',
+        'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.49.tar.gz',
         'FILES'        => q[cpan/Scalar-List-Utils],
     },
 
index 4a03af8..035f67f 100644 (file)
@@ -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;
index c870411..10429a7 100644 (file)
@@ -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;
index ad36af3..00edd3b 100644 (file)
@@ -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
index b4ec6ac..ecfab70 100644 (file)
@@ -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
index 1aad877..7b5894a 100644 (file)
@@ -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
index 5328a41..4deedcb 100644 (file)
@@ -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;
index 4639a8a..1b7258c 100644 (file)
@@ -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);
index 5a6925d..105c499 100644 (file)
@@ -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} };