diff options
author | reneeb <reb@perl-services.de> | 2022-02-20 06:40:14 +0000 |
---|---|---|
committer | reneeb <reb@perl-services.de> | 2022-02-20 06:40:14 +0000 |
commit | 5c8c5ef47293de89808c868bcfa49e2da2060fdc (patch) | |
tree | b21f8ea45e1fedbc4b717a46398b00a8cd4b5c63 | |
parent | 3d1a4f06721f5fc5870542326c4cfeebe339db99 (diff) | |
download | perl-5c8c5ef47293de89808c868bcfa49e2da2060fdc.tar.gz |
update Scalar-List-Utils to 1.61
-rw-r--r-- | cpan/Scalar-List-Utils/ListUtil.xs | 14 | ||||
-rw-r--r-- | cpan/Scalar-List-Utils/lib/List/Util.pm | 2 | ||||
-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 |
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 |