Hello community,
here is the log from the commit of package perl-List-AllUtils for
openSUSE:Factory checked in at 2013-11-26 19:25:55
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-List-AllUtils (Old)
and /work/SRC/openSUSE:Factory/.perl-List-AllUtils.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-List-AllUtils"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-List-AllUtils/perl-List-AllUtils.changes
2013-10-21 15:14:01.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-List-AllUtils.new/perl-List-AllUtils.changes
2013-11-26 19:25:56.000000000 +0100
@@ -1,0 +2,11 @@
+Mon Nov 25 07:39:19 UTC 2013 - [email protected]
+
+- updated to 0.07
+ - The last version totally broke all exports from List::MoreUtils. Now there
+ are actual tests for this. Reported by Tatsuhiko Miyagawa. RT #89509.
+ - List::Util 1.33 provides some subs that are also provided by
+ List::MoreUtils. This caused subroutine redefeined warnings. List::AllUtils
+ now only imports subs from List::MoreUtils that aren't defined by
+ List::Util. This works with List::Util 1.31+. Reported by Zefram. RT #89467.
+
+-------------------------------------------------------------------
@@ -5,5 +16,5 @@
-+- Really require List::Util 1.31, instead of just saying so in the
-+ Changes. Reported by Przemysław Wesołek. RT #88296
-+- Updated to require List::Util 1.31, which includes a bunch of new pairwise
-+ functions.
-+- Updated docs to match List::MoreUtils 0.28+. Reported by ilmari. RT #75196.
+ - Really require List::Util 1.31, instead of just saying so in the
+ Changes. Reported by Przemysław Wesołek. RT #88296
+ - Updated to require List::Util 1.31, which includes a bunch of new pairwise
+ functions.
+ - Updated docs to match List::MoreUtils 0.28+. Reported by ilmari. RT #75196.
Old:
----
List-AllUtils-0.05.tar.gz
New:
----
List-AllUtils-0.07.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-List-AllUtils.spec ++++++
--- /var/tmp/diff_new_pack.i7RZ7A/_old 2013-11-26 19:25:56.000000000 +0100
+++ /var/tmp/diff_new_pack.i7RZ7A/_new 2013-11-26 19:25:56.000000000 +0100
@@ -17,7 +17,7 @@
Name: perl-List-AllUtils
-Version: 0.05
+Version: 0.07
Release: 0
%define cpan_name List-AllUtils
Summary: Combines List::Util and List::MoreUtils in one bite-sized
package
@@ -32,6 +32,7 @@
BuildRequires: perl(List::MoreUtils) >= 0.28
BuildRequires: perl(List::Util) >= 1.31
BuildRequires: perl(Test::More) >= 0.88
+BuildRequires: perl(Test::Warnings)
#BuildRequires: perl(List::AllUtils)
Requires: perl(List::MoreUtils) >= 0.28
Requires: perl(List::Util) >= 1.31
++++++ List-AllUtils-0.05.tar.gz -> List-AllUtils-0.07.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-AllUtils-0.05/Changes
new/List-AllUtils-0.07/Changes
--- old/List-AllUtils-0.05/Changes 2013-08-31 04:54:55.000000000 +0200
+++ new/List-AllUtils-0.07/Changes 2013-10-14 22:58:25.000000000 +0200
@@ -1,3 +1,17 @@
+0.07 2013-10-14
+
+- The last version totally broke all exports from List::MoreUtils. Now there
+ are actual tests for this. Reported by Tatsuhiko Miyagawa. RT #89509.
+
+
+0.06 2013-10-14
+
+- List::Util 1.33 provides some subs that are also provided by
+ List::MoreUtils. This caused subroutine redefeined warnings. List::AllUtils
+ now only imports subs from List::MoreUtils that aren't defined by
+ List::Util. This works with List::Util 1.31+. Reported by Zefram. RT #89467.
+
+
0.05 2013-08-30
- Really require List::Util 1.31, instead of just saying so in the
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-AllUtils-0.05/META.json
new/List-AllUtils-0.07/META.json
--- old/List-AllUtils-0.05/META.json 2013-08-31 04:54:55.000000000 +0200
+++ new/List-AllUtils-0.07/META.json 2013-10-14 22:58:25.000000000 +0200
@@ -4,7 +4,7 @@
"Dave Rolsky <[email protected]>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.300037, CPAN::Meta::Converter
version 2.131560",
+ "generated_by" : "Dist::Zilla version 4.300039, CPAN::Meta::Converter
version 2.131560",
"license" : [
"artistic_2"
],
@@ -41,7 +41,8 @@
"requires" : {
"File::Find" : "0",
"File::Temp" : "0",
- "Test::More" : "0.88"
+ "Test::More" : "0.88",
+ "Test::Warnings" : "0"
}
}
},
@@ -58,7 +59,7 @@
"web" : "http://git.urth.org/List-AllUtils.git";
}
},
- "version" : "0.05",
+ "version" : "0.07",
"x_authority" : "cpan:DROLSKY"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-AllUtils-0.05/META.yml
new/List-AllUtils-0.07/META.yml
--- old/List-AllUtils-0.05/META.yml 2013-08-31 04:54:55.000000000 +0200
+++ new/List-AllUtils-0.07/META.yml 2013-10-14 22:58:25.000000000 +0200
@@ -6,10 +6,11 @@
File::Find: 0
File::Temp: 0
Test::More: 0.88
+ Test::Warnings: 0
configure_requires:
ExtUtils::MakeMaker: 6.30
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300037, CPAN::Meta::Converter version
2.131560'
+generated_by: 'Dist::Zilla version 4.300039, CPAN::Meta::Converter version
2.131560'
license: artistic_2
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -26,5 +27,5 @@
bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=List-AllUtils
homepage: http://metacpan.org/release/List-AllUtils
repository: git://git.urth.org/List-AllUtils.git
-version: 0.05
+version: 0.07
x_authority: cpan:DROLSKY
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-AllUtils-0.05/Makefile.PL
new/List-AllUtils-0.07/Makefile.PL
--- old/List-AllUtils-0.05/Makefile.PL 2013-08-31 04:54:55.000000000 +0200
+++ new/List-AllUtils-0.07/Makefile.PL 2013-10-14 22:58:25.000000000 +0200
@@ -30,9 +30,10 @@
"TEST_REQUIRES" => {
"File::Find" => 0,
"File::Temp" => 0,
- "Test::More" => "0.88"
+ "Test::More" => "0.88",
+ "Test::Warnings" => 0
},
- "VERSION" => "0.05",
+ "VERSION" => "0.07",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-AllUtils-0.05/README
new/List-AllUtils-0.07/README
--- old/List-AllUtils-0.05/README 2013-08-31 04:54:55.000000000 +0200
+++ new/List-AllUtils-0.07/README 2013-10-14 22:58:25.000000000 +0200
@@ -1,7 +1,7 @@
This archive contains the distribution List-AllUtils,
-version 0.05:
+version 0.07:
Combines List::Util and List::MoreUtils in one bite-sized package
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-AllUtils-0.05/dist.ini
new/List-AllUtils-0.07/dist.ini
--- old/List-AllUtils-0.05/dist.ini 2013-08-31 04:54:55.000000000 +0200
+++ new/List-AllUtils-0.07/dist.ini 2013-10-14 22:58:25.000000000 +0200
@@ -3,7 +3,7 @@
license = Artistic_2_0
copyright_holder = Dave Rolsky
-version = 0.05
+version = 0.07
[@DROLSKY]
dist = List-AllUtils
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-AllUtils-0.05/lib/List/AllUtils.pm
new/List-AllUtils-0.07/lib/List/AllUtils.pm
--- old/List-AllUtils-0.05/lib/List/AllUtils.pm 2013-08-31 04:54:55.000000000
+0200
+++ new/List-AllUtils-0.07/lib/List/AllUtils.pm 2013-10-14 22:58:25.000000000
+0200
@@ -1,6 +1,6 @@
package List::AllUtils;
{
- $List::AllUtils::VERSION = '0.05';
+ $List::AllUtils::VERSION = '0.07';
}
BEGIN {
$List::AllUtils::AUTHORITY = 'cpan:DROLSKY';
@@ -10,12 +10,16 @@
use warnings;
# List::Util does not define an :all tag
-BEGIN
-{
+BEGIN {
use List::Util 1.31 ();
- List::Util->import( @List::Util::EXPORT_OK );
+ List::Util->import(@List::Util::EXPORT_OK);
+
+ use List::MoreUtils 0.28;
+
+ my %imported = map { $_ => 1 } @List::Util::EXPORT_OK;
+ List::MoreUtils->import( grep { !$imported{$_} }
+ @{ $List::MoreUtils::EXPORT_TAGS{all} } );
}
-use List::MoreUtils 0.28 qw( :all );
use base 'Exporter';
@@ -23,7 +27,6 @@
our %EXPORT_TAGS = ( all => \@EXPORT_OK );
-
1;
# ABSTRACT: Combines List::Util and List::MoreUtils in one bite-sized package
@@ -38,7 +41,7 @@
=head1 VERSION
-version 0.05
+version 0.07
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-AllUtils-0.05/t/01-basic.t
new/List-AllUtils-0.07/t/01-basic.t
--- old/List-AllUtils-0.05/t/01-basic.t 2013-08-31 04:54:55.000000000 +0200
+++ new/List-AllUtils-0.07/t/01-basic.t 2013-10-14 22:58:25.000000000 +0200
@@ -1,10 +1,17 @@
use strict;
use warnings;
+# This is needed to produce sub redefined warnings from List::AllUtils when
+# List::Util and List::MoreUtils export some of the same subs. I'm not sure
+# why.
+BEGIN {
+ $^W++;
+}
+
use Test::More 0.88;
+use Test::Warnings;
{
-
package Foo;
use List::AllUtils;
@@ -13,26 +20,66 @@
ok( !Foo->can('first'), 'no exports by default' );
{
-
package Bar;
- use List::AllUtils qw( first any );
+ use List::AllUtils qw( first any apply );
+
+ sub test_first {
+ return first { $_ > 1 } @_;
+ }
+
+ sub test_apply {
+ return apply { $_ *= 2 } @_;
+ }
}
ok( Bar->can('first'), 'explicitly import first' );
ok( Bar->can('any'), 'explicitly import any' );
+ok( Bar->can('apply'), 'explicitly import apply' );
ok( !Bar->can('all'), 'did not import all' );
-{
+is(
+ Bar::test_first( 1, 2, 3 ),
+ 2,
+ 'Bar::test_first returns expected value'
+);
+
+is_deeply(
+ [ Bar::test_apply( 1, 2, 3 ) ],
+ [ 2, 4, 6 ],
+ 'Bar::test_apply returns expected list'
+);
+{
package Baz;
use List::AllUtils qw( :all );
+
+ sub test_first {
+ return first { $_ > 1 } @_;
+ }
+
+ sub test_apply {
+ return apply { $_ *= 2 } @_;
+ }
}
ok( Baz->can('first'), 'imported everything, got first' );
ok( Baz->can('any'), 'imported everything, got any' );
ok( Baz->can('all'), 'imported everything, got all' );
+ok( Baz->can('apply'), 'imported everything, got apply' );
+
+is(
+ Baz::test_first( 1, 2, 3 ),
+ 2,
+ 'Baz::test_first returns expected value'
+);
+
+is_deeply(
+ [ Baz::test_apply( 1, 2, 3 ) ],
+ [ 2, 4, 6 ],
+ 'Baz::test_apply returns expected list'
+);
is(
( List::AllUtils::first { $_ > 5 } ( 1, 2, 5, 22, 7 ) ),
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
