summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorreneeb <reb@perl-services.de>2022-02-20 06:40:14 +0000
committerreneeb <reb@perl-services.de>2022-02-20 06:40:14 +0000
commit5c8c5ef47293de89808c868bcfa49e2da2060fdc (patch)
treeb21f8ea45e1fedbc4b717a46398b00a8cd4b5c63
parent3d1a4f06721f5fc5870542326c4cfeebe339db99 (diff)
downloadperl-5c8c5ef47293de89808c868bcfa49e2da2060fdc.tar.gz
update Scalar-List-Utils to 1.61
-rw-r--r--cpan/Scalar-List-Utils/ListUtil.xs14
-rw-r--r--cpan/Scalar-List-Utils/lib/List/Util.pm2
-rw-r--r--cpan/Scalar-List-Utils/lib/List/Util/XS.pm2
-rw-r--r--cpan/Scalar-List-Utils/lib/Scalar/Util.pm2
-rw-r--r--cpan/Scalar-List-Utils/lib/Sub/Util.pm2
5 files changed, 11 insertions, 11 deletions
diff --git a/cpan/Scalar-List-Utils/ListUtil.xs b/cpan/Scalar-List-Utils/ListUtil.xs
index c6b3c28d81..16a34ec748 100644
--- a/cpan/Scalar-List-Utils/ListUtil.xs
+++ b/cpan/Scalar-List-Utils/ListUtil.xs
@@ -1584,10 +1584,10 @@ ALIAS:
mesh_longest = ZIP_MESH_LONGEST
mesh_shortest = ZIP_MESH_SHORTEST
PPCODE:
- int nlists = items; /* number of lists */
+ Size_t nlists = items; /* number of lists */
AV **lists; /* inbound lists */
- int len = 0; /* length of longest inbound list = length of result */
- int i;
+ Size_t len = 0; /* length of longest inbound list = length of result */
+ Size_t i;
bool is_mesh = (ix & ZIP_MESH);
ix &= ~ZIP_MESH;
@@ -1628,12 +1628,12 @@ PPCODE:
}
if(is_mesh) {
- int retcount = len * nlists;
+ SSize_t retcount = (SSize_t)(len * nlists);
EXTEND(SP, retcount);
for(i = 0; i < len; i++) {
- int listi;
+ Size_t listi;
for(listi = 0; listi < nlists; listi++) {
SV *item = (i < av_count(lists[listi])) ?
@@ -1647,10 +1647,10 @@ PPCODE:
XSRETURN(retcount);
}
else {
- EXTEND(SP, len);
+ EXTEND(SP, (SSize_t)len);
for(i = 0; i < len; i++) {
- int listi;
+ Size_t listi;
AV *ret = newAV();
av_extend(ret, nlists);
diff --git a/cpan/Scalar-List-Utils/lib/List/Util.pm b/cpan/Scalar-List-Utils/lib/List/Util.pm
index 9dc233a151..0bba07ca38 100644
--- a/cpan/Scalar-List-Utils/lib/List/Util.pm
+++ b/cpan/Scalar-List-Utils/lib/List/Util.pm
@@ -16,7 +16,7 @@ our @EXPORT_OK = qw(
sample shuffle uniq uniqint uniqnum uniqstr zip zip_longest zip_shortest mesh mesh_longest mesh_shortest
head tail pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst
);
-our $VERSION = "1.60";
+our $VERSION = "1.61";
our $XS_VERSION = $VERSION;
$VERSION =~ tr/_//d;
diff --git a/cpan/Scalar-List-Utils/lib/List/Util/XS.pm b/cpan/Scalar-List-Utils/lib/List/Util/XS.pm
index e8e78b2ae7..9b6d690f54 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.60"; # FIXUP
+our $VERSION = "1.61"; # FIXUP
$VERSION =~ tr/_//d; # FIXUP
1;
diff --git a/cpan/Scalar-List-Utils/lib/Scalar/Util.pm b/cpan/Scalar-List-Utils/lib/Scalar/Util.pm
index a65d923ef0..120a744bc1 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.60";
+our $VERSION = "1.61";
$VERSION =~ tr/_//d;
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 eb4f928960..f015d4dcb1 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.60";
+our $VERSION = "1.61";
$VERSION =~ tr/_//d;
require List::Util; # as it has the XS