Hello community,
here is the log from the commit of package perl-List-MoreUtils for
openSUSE:Factory checked in at 2017-12-19 10:44:34
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-List-MoreUtils (Old)
and /work/SRC/openSUSE:Factory/.perl-List-MoreUtils.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-List-MoreUtils"
Tue Dec 19 10:44:34 2017 rev:31 rq:556882 version:0.428
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-List-MoreUtils/perl-List-MoreUtils.changes
2017-10-23 16:41:04.658982091 +0200
+++
/work/SRC/openSUSE:Factory/.perl-List-MoreUtils.new/perl-List-MoreUtils.changes
2017-12-19 10:44:36.371022758 +0100
@@ -1,0 +2,16 @@
+Tue Dec 12 06:29:54 UTC 2017 - [email protected]
+
+- updated to 0.428
+ see /usr/share/doc/packages/perl-List-MoreUtils/Changes
+
+ 0.428 2017-12-11
+ - release 0.427_001 without further changes
+
+ 0.427_001 2017-11-06
+ - fix Issue#22 (Upgrading from LMU 0.416 to split XS/PP version will
fail)
+ reported by Graham Knop (haarg), this time hopefully the right way,
+ repeated in RT#123310.
+ - fix Issue#29 (pairwise() PP implementation add tail undefs if arrays
+ sizes differs) reported by 0x62ash
+
+-------------------------------------------------------------------
Old:
----
List-MoreUtils-0.426.tar.gz
New:
----
List-MoreUtils-0.428.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-List-MoreUtils.spec ++++++
--- /var/tmp/diff_new_pack.uwondn/_old 2017-12-19 10:44:36.926995919 +0100
+++ /var/tmp/diff_new_pack.uwondn/_new 2017-12-19 10:44:36.926995919 +0100
@@ -17,7 +17,7 @@
Name: perl-List-MoreUtils
-Version: 0.426
+Version: 0.428
Release: 0
%define cpan_name List-MoreUtils
Summary: Provide the stuff missing in List::Util
++++++ List-MoreUtils-0.426.tar.gz -> List-MoreUtils-0.428.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-0.426/Changes
new/List-MoreUtils-0.428/Changes
--- old/List-MoreUtils-0.426/Changes 2017-10-12 18:50:18.000000000 +0200
+++ new/List-MoreUtils-0.428/Changes 2017-12-11 17:00:57.000000000 +0100
@@ -1,5 +1,15 @@
Revision history for Perl extension List-MoreUtils
+0.428 2017-12-11
+ - release 0.427_001 without further changes
+
+0.427_001 2017-11-06
+ - fix Issue#22 (Upgrading from LMU 0.416 to split XS/PP version will fail)
+ reported by Graham Knop (haarg), this time hopefully the right way,
+ repeated in RT#123310.
+ - fix Issue#29 (pairwise() PP implementation add tail undefs if arrays
+ sizes differs) reported by 0x62ash
+
0.426 2017-10-12
- release 0.425_002 without further changes
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-0.426/META.json
new/List-MoreUtils-0.428/META.json
--- old/List-MoreUtils-0.426/META.json 2017-10-12 19:09:15.000000000 +0200
+++ new/List-MoreUtils-0.428/META.json 2017-12-11 17:16:55.000000000 +0100
@@ -77,6 +77,6 @@
"web" : "https://github.com/perl5-utils/List-MoreUtils";
}
},
- "version" : "0.426",
+ "version" : "0.428",
"x_serialization_backend" : "JSON::PP version 2.94"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-0.426/META.yml
new/List-MoreUtils-0.428/META.yml
--- old/List-MoreUtils-0.426/META.yml 2017-10-12 19:09:15.000000000 +0200
+++ new/List-MoreUtils-0.428/META.yml 2017-12-11 17:16:54.000000000 +0100
@@ -29,5 +29,5 @@
bugtracker: https://rt.cpan.org/Dist/Display.html?Name=List-MoreUtils
homepage: https://metacpan.org/release/List-MoreUtils
repository: https://github.com/perl5-utils/List-MoreUtils.git
-version: '0.426'
+version: '0.428'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-0.426/Makefile.PL
new/List-MoreUtils-0.428/Makefile.PL
--- old/List-MoreUtils-0.426/Makefile.PL 2017-10-02 18:03:52.000000000
+0200
+++ new/List-MoreUtils-0.428/Makefile.PL 2017-11-06 10:00:24.000000000
+0100
@@ -51,7 +51,7 @@
my $conflictMsg = <<EOCM;
***
This version of %s conflicts with
- the version of module %s (%s) you have installed.
+ the version of module %s v%s you have installed.
It's strongly recommended that you update it after
installing this version of %s.
@@ -60,14 +60,14 @@
my $selfConflictMsg = <<EOSCM;
***
- This version of %s conflicts with
- the version of %s (%s) you have installed.
+ This version of %s conflicts with the version of
+ %s v%s at %s you have installed.
It's strongly recommended that you carefully read
the Changes file and test your application with
this version before finally upgrading.
- See local::lib how to do it easily.
+ The installed files will be removed when installing.
***
EOSCM
@@ -159,6 +159,7 @@
my %params = @_;
my %conflicts = %{$params{CONFLICTS}};
my $found = 0;
+ my @kill;
while (my ($module, $version) = each(%conflicts))
{
@@ -169,14 +170,36 @@
if ($installed le $version)
{
++$found;
- my $warning =
- (0 == index($module, $params{NAME}, 0))
- ? sprintf($selfConflictMsg, $params{NAME}, $module, $installed)
- : sprintf($conflictMsg, $params{NAME}, $module, $installed,
$params{NAME});
- warn $warning;
+ if ($module eq "List::MoreUtils" or $module eq
"List::MoreUtils::PP")
+ {
+ (my $modfile = "${module}.pm") =~ s,::,/,g;
+ warn sprintf($selfConflictMsg, $params{NAME}, $module,
$installed, $INC{$modfile});
+ push @kill, $modfile;
+ }
+ else
+ {
+ warn sprintf($conflictMsg, $params{NAME}, $module, $installed,
$params{NAME});
+ }
+
}
}
+ if (@kill)
+ {
+
+ package MY;
+ no warnings 'once';
+
+ *install = sub {
+ my $self = shift;
+ return "\npure_site_install ::\n"
+ . join("",
+ map { "\t\$(NOECHO) \$(RM_F) " .
$self->quote_literal($self->catfile('$(DESTINSTALLSITEARCH)', $_)) . "\n" }
+ @kill)
+ . $self->SUPER::install;
+ };
+ }
+
return !$found;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-0.426/lib/List/MoreUtils/PP.pm
new/List-MoreUtils-0.428/lib/List/MoreUtils/PP.pm
--- old/List-MoreUtils-0.426/lib/List/MoreUtils/PP.pm 2017-10-12
18:46:23.000000000 +0200
+++ new/List-MoreUtils-0.428/lib/List/MoreUtils/PP.pm 2017-12-11
17:00:06.000000000 +0100
@@ -4,7 +4,7 @@
use strict;
use warnings;
-our $VERSION = '0.426';
+our $VERSION = '0.428';
=pod
@@ -411,7 +411,7 @@
local (*$caller_a, *$caller_b);
map {
# Assign to $a, $b as refs to caller's array elements
- (*$caller_a, *$caller_b) = \($A[$_], $B[$_]);
+ (*$caller_a, *$caller_b) = \($#A < $_ ? undef : $A[$_], $#B < $_ ?
undef : $B[$_]);
# Perform the transformation
$op->();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-0.426/lib/List/MoreUtils.pm
new/List-MoreUtils-0.428/lib/List/MoreUtils.pm
--- old/List-MoreUtils-0.426/lib/List/MoreUtils.pm 2017-10-12
18:46:23.000000000 +0200
+++ new/List-MoreUtils-0.428/lib/List/MoreUtils.pm 2017-12-11
17:00:06.000000000 +0100
@@ -5,7 +5,7 @@
use warnings;
my $have_xs;
-our $VERSION = '0.426';
+our $VERSION = '0.428';
BEGIN
{
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-0.426/t/inline/pairwise.pm
new/List-MoreUtils-0.428/t/inline/pairwise.pm
--- old/List-MoreUtils-0.426/t/inline/pairwise.pm 2017-09-27
16:27:09.000000000 +0200
+++ new/List-MoreUtils-0.428/t/inline/pairwise.pm 2017-11-06
11:06:40.000000000 +0100
@@ -23,9 +23,11 @@
# sub returns more than two items
@a = (1, 1, 2, 3, 5);
-@b = (2, 3, 5, 7, 11);
+@b = (2, 3, 5, 7, 11, 13);
@c = pairwise { ($a) x $b } @a, @b;
-is_deeply(\@c, [(1) x 2, (1) x 3, (2) x 5, (3) x 7, (5) x 11], "pw8");
+is_deeply(\@c, [(1) x 2, (1) x 3, (2) x 5, (3) x 7, (5) x 11, (undef) x 13],
"pw8");
+is_deeply(\@a, [1, 1, 2, 3, 5], "pw9");
+is_deeply(\@b, [2, 3, 5, 7, 11, 13], "pwX");
(@a, @b) = ();
push @a, int rand(1000) for 0 .. rand(1000);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-0.426/t/pureperl/pairwise.t
new/List-MoreUtils-0.428/t/pureperl/pairwise.t
--- old/List-MoreUtils-0.426/t/pureperl/pairwise.t 2017-10-12
18:52:03.000000000 +0200
+++ new/List-MoreUtils-0.428/t/pureperl/pairwise.t 2017-12-11
17:07:50.000000000 +0100
@@ -32,9 +32,11 @@
# sub returns more than two items
@a = (1, 1, 2, 3, 5);
-@b = (2, 3, 5, 7, 11);
+@b = (2, 3, 5, 7, 11, 13);
@c = pairwise { ($a) x $b } @a, @b;
-is_deeply(\@c, [(1) x 2, (1) x 3, (2) x 5, (3) x 7, (5) x 11], "pw8");
+is_deeply(\@c, [(1) x 2, (1) x 3, (2) x 5, (3) x 7, (5) x 11, (undef) x 13],
"pw8");
+is_deeply(\@a, [1, 1, 2, 3, 5], "pw9");
+is_deeply(\@b, [2, 3, 5, 7, 11, 13], "pwX");
(@a, @b) = ();
push @a, int rand(1000) for 0 .. rand(1000);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-0.426/t/xs/pairwise.t
new/List-MoreUtils-0.428/t/xs/pairwise.t
--- old/List-MoreUtils-0.426/t/xs/pairwise.t 2017-10-12 18:52:03.000000000
+0200
+++ new/List-MoreUtils-0.428/t/xs/pairwise.t 2017-12-11 17:07:50.000000000
+0100
@@ -32,9 +32,11 @@
# sub returns more than two items
@a = (1, 1, 2, 3, 5);
-@b = (2, 3, 5, 7, 11);
+@b = (2, 3, 5, 7, 11, 13);
@c = pairwise { ($a) x $b } @a, @b;
-is_deeply(\@c, [(1) x 2, (1) x 3, (2) x 5, (3) x 7, (5) x 11], "pw8");
+is_deeply(\@c, [(1) x 2, (1) x 3, (2) x 5, (3) x 7, (5) x 11, (undef) x 13],
"pw8");
+is_deeply(\@a, [1, 1, 2, 3, 5], "pw9");
+is_deeply(\@b, [2, 3, 5, 7, 11, 13], "pwX");
(@a, @b) = ();
push @a, int rand(1000) for 0 .. rand(1000);
