Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Scalar-List-Utils for
openSUSE:Factory checked in at 2021-10-20 20:22:49
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Scalar-List-Utils (Old)
and /work/SRC/openSUSE:Factory/.perl-Scalar-List-Utils.new.1890 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Scalar-List-Utils"
Wed Oct 20 20:22:49 2021 rev:22 rq:924835 version:1.60
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Scalar-List-Utils/perl-Scalar-List-Utils.changes
2021-09-16 23:17:07.927951135 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Scalar-List-Utils.new.1890/perl-Scalar-List-Utils.changes
2021-10-20 20:23:06.313334405 +0200
@@ -1,0 +2,15 @@
+Sat Oct 9 03:08:01 UTC 2021 - Tina M??ller <[email protected]>
+
+- updated to 1.60
+ see /usr/share/doc/packages/perl-Scalar-List-Utils/Changes
+
+ 1.60 -- 2021-10-08
+ [BUGFIXES]
+ * Quiet some -Wsign-compare warnings by using `int` instead of `UV`
+ (RT136985)
+ * Quiet a -Wmaybe-uninitialized warning by ensuring a variable is
+ always initialised, because the compiler can't always determine this
+ is safe (RT139356)
+ * Avoid SIGFPE in product(-1, ...) (RT139601)
+
+-------------------------------------------------------------------
Old:
----
Scalar-List-Utils-1.59.tar.gz
New:
----
Scalar-List-Utils-1.60.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Scalar-List-Utils.spec ++++++
--- /var/tmp/diff_new_pack.bcFkjl/_old 2021-10-20 20:23:06.753334677 +0200
+++ /var/tmp/diff_new_pack.bcFkjl/_new 2021-10-20 20:23:06.753334677 +0200
@@ -18,7 +18,7 @@
%define cpan_name Scalar-List-Utils
Name: perl-Scalar-List-Utils
-Version: 1.59
+Version: 1.60
Release: 0
Summary: Common Scalar and List utility subroutines
License: Artistic-1.0 OR GPL-1.0-or-later
++++++ Scalar-List-Utils-1.59.tar.gz -> Scalar-List-Utils-1.60.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Scalar-List-Utils-1.59/Changes
new/Scalar-List-Utils-1.60/Changes
--- old/Scalar-List-Utils-1.59/Changes 2021-09-12 18:46:06.000000000 +0200
+++ new/Scalar-List-Utils-1.60/Changes 2021-10-08 13:06:34.000000000 +0200
@@ -1,3 +1,12 @@
+1.60 -- 2021-10-08
+ [BUGFIXES]
+ * Quiet some -Wsign-compare warnings by using `int` instead of `UV`
+ (RT136985)
+ * Quiet a -Wmaybe-uninitialized warning by ensuring a variable is
+ always initialised, because the compiler can't always determine this
+ is safe (RT139356)
+ * Avoid SIGFPE in product(-1, ...) (RT139601)
+
1.59 -- 2021-09-12
[CHANGES]
* Removed Scalar::Util::isbool() as the API design for older perls
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Scalar-List-Utils-1.59/ListUtil.xs
new/Scalar-List-Utils-1.60/ListUtil.xs
--- old/Scalar-List-Utils-1.59/ListUtil.xs 2021-09-12 18:45:31.000000000
+0200
+++ new/Scalar-List-Utils-1.60/ListUtil.xs 2021-10-08 12:09:25.000000000
+0200
@@ -406,7 +406,7 @@
IV i = SvIV(sv);
if (retiv == 0) /* avoid later division by zero */
break;
- if (retiv < 0) {
+ if (retiv < -1) { /* avoid -1 because that causes SIGFPE */
if (i < 0) {
if (i >= IV_MAX / retiv) {
retiv *= i;
@@ -420,7 +420,7 @@
}
}
}
- else {
+ else if (retiv > 0) {
if (i < 0) {
if (i >= IV_MIN / retiv) {
retiv *= i;
@@ -548,7 +548,7 @@
{
SV *ret = sv_newmortal();
int index;
- AV *retvals;
+ AV *retvals = NULL;
GV *agv,*bgv;
SV **args = &PL_stack_base[ax];
CV *cv = sv_to_cv(block, ix ? "reductions" : "reduce");
@@ -1584,10 +1584,10 @@
mesh_longest = ZIP_MESH_LONGEST
mesh_shortest = ZIP_MESH_SHORTEST
PPCODE:
- UV nlists = items; /* number of lists */
- AV **lists; /* inbound lists */
- UV len = 0; /* length of longest inbound list = length of result */
- UV i;
+ int nlists = items; /* number of lists */
+ AV **lists; /* inbound lists */
+ int len = 0; /* length of longest inbound list = length of result */
+ int i;
bool is_mesh = (ix & ZIP_MESH);
ix &= ~ZIP_MESH;
@@ -1628,12 +1628,12 @@
}
if(is_mesh) {
- UV retcount = len * nlists;
+ int retcount = len * nlists;
EXTEND(SP, retcount);
for(i = 0; i < len; i++) {
- UV listi;
+ int listi;
for(listi = 0; listi < nlists; listi++) {
SV *item = (i < av_count(lists[listi])) ?
@@ -1650,7 +1650,7 @@
EXTEND(SP, len);
for(i = 0; i < len; i++) {
- UV listi;
+ int listi;
AV *ret = newAV();
av_extend(ret, nlists);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Scalar-List-Utils-1.59/META.json
new/Scalar-List-Utils-1.60/META.json
--- old/Scalar-List-Utils-1.59/META.json 2021-09-12 18:48:46.000000000
+0200
+++ new/Scalar-List-Utils-1.60/META.json 2021-10-08 13:08:07.000000000
+0200
@@ -53,6 +53,6 @@
"web" : "https://github.com/Scalar-List-Utils/Scalar-List-Utils";
}
},
- "version" : "1.59",
+ "version" : "1.60",
"x_serialization_backend" : "JSON::PP version 4.05"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Scalar-List-Utils-1.59/META.yml
new/Scalar-List-Utils-1.60/META.yml
--- old/Scalar-List-Utils-1.59/META.yml 2021-09-12 18:48:46.000000000 +0200
+++ new/Scalar-List-Utils-1.60/META.yml 2021-10-08 13:08:07.000000000 +0200
@@ -23,5 +23,5 @@
resources:
bugtracker:
https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils
repository: https://github.com/Scalar-List-Utils/Scalar-List-Utils.git
-version: '1.59'
+version: '1.60'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Scalar-List-Utils-1.59/lib/List/Util/XS.pm
new/Scalar-List-Utils-1.60/lib/List/Util/XS.pm
--- old/Scalar-List-Utils-1.59/lib/List/Util/XS.pm 2021-09-12
18:46:06.000000000 +0200
+++ new/Scalar-List-Utils-1.60/lib/List/Util/XS.pm 2021-10-08
13:06:34.000000000 +0200
@@ -3,7 +3,7 @@
use warnings;
use List::Util;
-our $VERSION = "1.59"; # FIXUP
+our $VERSION = "1.60"; # FIXUP
$VERSION =~ tr/_//d; # FIXUP
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Scalar-List-Utils-1.59/lib/List/Util.pm
new/Scalar-List-Utils-1.60/lib/List/Util.pm
--- old/Scalar-List-Utils-1.59/lib/List/Util.pm 2021-09-12 18:46:06.000000000
+0200
+++ new/Scalar-List-Utils-1.60/lib/List/Util.pm 2021-10-08 13:06:34.000000000
+0200
@@ -16,7 +16,7 @@
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.59";
+our $VERSION = "1.60";
our $XS_VERSION = $VERSION;
$VERSION =~ tr/_//d;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Scalar-List-Utils-1.59/lib/Scalar/Util.pm
new/Scalar-List-Utils-1.60/lib/Scalar/Util.pm
--- old/Scalar-List-Utils-1.59/lib/Scalar/Util.pm 2021-09-12
18:46:06.000000000 +0200
+++ new/Scalar-List-Utils-1.60/lib/Scalar/Util.pm 2021-10-08
13:06:34.000000000 +0200
@@ -17,7 +17,7 @@
dualvar isdual isvstring looks_like_number openhandle readonly set_prototype
tainted
);
-our $VERSION = "1.59";
+our $VERSION = "1.60";
$VERSION =~ tr/_//d;
require List::Util; # List::Util loads the XS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Scalar-List-Utils-1.59/lib/Sub/Util.pm
new/Scalar-List-Utils-1.60/lib/Sub/Util.pm
--- old/Scalar-List-Utils-1.59/lib/Sub/Util.pm 2021-09-12 18:46:06.000000000
+0200
+++ new/Scalar-List-Utils-1.60/lib/Sub/Util.pm 2021-10-08 13:06:34.000000000
+0200
@@ -15,7 +15,7 @@
subname set_subname
);
-our $VERSION = "1.59";
+our $VERSION = "1.60";
$VERSION =~ tr/_//d;
require List::Util; # as it has the XS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Scalar-List-Utils-1.59/t/product.t
new/Scalar-List-Utils-1.60/t/product.t
--- old/Scalar-List-Utils-1.59/t/product.t 2021-09-12 18:38:17.000000000
+0200
+++ new/Scalar-List-Utils-1.60/t/product.t 2021-10-08 12:11:55.000000000
+0200
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 25;
+use Test::More tests => 27;
use Config;
use List::Util qw(product);
@@ -32,6 +32,13 @@
$v = product(0, 0);
is( $v, 0, 'two 0');
+# RT139601 cornercases
+{
+ # Numify the result because some older perl versions see "-0" as a string
+ is( 0+product(-1.0, 0), 0, 'product(-1.0, 0)' );
+ is( 0+product(-1, 0), 0, 'product(-1, 0)' );
+}
+
my $x = -3;
$v = product($x, 3);
