},
'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],
},
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;
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;
use warnings;
use List::Util;
-our $VERSION = "1.48"; # FIXUP
+our $VERSION = "1.49"; # FIXUP
$VERSION = eval $VERSION; # FIXUP
1;
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
subname set_subname
);
-our $VERSION = "1.48";
+our $VERSION = "1.49";
$VERSION = eval $VERSION;
require List::Util; # as it has the XS
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
use strict;
use warnings;
-use Test::More;
+use Test::More tests => 2;
{
use List::Util qw( first );
is( $var, 'HellO WorlD',
'any (lc$_) leaves value undisturbed' );
}
-
-done_testing;
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);
'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 "", @_ };
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} };