Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-List-UtilsBy for
openSUSE:Factory checked in at 2022-05-14 22:52:02
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-List-UtilsBy (Old)
and /work/SRC/openSUSE:Factory/.perl-List-UtilsBy.new.1538 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-List-UtilsBy"
Sat May 14 22:52:02 2022 rev:3 rq:976459 version:0.12
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-List-UtilsBy/perl-List-UtilsBy.changes
2018-02-10 17:53:54.093397177 +0100
+++
/work/SRC/openSUSE:Factory/.perl-List-UtilsBy.new.1538/perl-List-UtilsBy.changes
2022-05-14 22:52:05.694985855 +0200
@@ -1,0 +2,13 @@
+Sat Apr 30 03:06:26 UTC 2022 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 0.12
+ see /usr/share/doc/packages/perl-List-UtilsBy/Changes
+
+ 0.12 2022-04-29
+ [CHANGES]
+ * Documentation updates:
+ + Add examples showing combining multiple functions to give
+ further behaviours
+ + Fixed typo "probability" (RT127988, RT136817)
+
+-------------------------------------------------------------------
Old:
----
List-UtilsBy-0.11.tar.gz
New:
----
List-UtilsBy-0.12.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-List-UtilsBy.spec ++++++
--- /var/tmp/diff_new_pack.gsQBpr/_old 2022-05-14 22:52:06.298986610 +0200
+++ /var/tmp/diff_new_pack.gsQBpr/_new 2022-05-14 22:52:06.306986620 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-List-UtilsBy
#
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2022 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,22 +12,20 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
+%define cpan_name List-UtilsBy
Name: perl-List-UtilsBy
-Version: 0.11
+Version: 0.12
Release: 0
-%define cpan_name List-UtilsBy
-Summary: Higher-Order List Utility Functions
-License: Artistic-1.0 or GPL-1.0+
-Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/List-UtilsBy/
+License: Artistic-1.0 OR GPL-1.0-or-later
+Summary: Higher-order list utility functions
+URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/P/PE/PEVANS/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(Module::Build) >= 0.400400
@@ -48,10 +46,10 @@
my @people_sorted = sort_by { $_->name } @people;
%prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{version}
%build
-%{__perl} Build.PL installdirs=vendor
+perl Build.PL installdirs=vendor
./Build build flags=%{?_smp_mflags}
%check
@@ -62,7 +60,6 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc Changes README
%license LICENSE
++++++ List-UtilsBy-0.11.tar.gz -> List-UtilsBy-0.12.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-UtilsBy-0.11/Changes
new/List-UtilsBy-0.12/Changes
--- old/List-UtilsBy-0.11/Changes 2018-02-01 00:21:27.000000000 +0100
+++ new/List-UtilsBy-0.12/Changes 2022-04-29 17:33:11.000000000 +0200
@@ -1,5 +1,12 @@
Revision history for List-UtilsBy
+0.12 2022-04-29
+ [CHANGES]
+ * Documentation updates:
+ + Add examples showing combining multiple functions to give
+ further behaviours
+ + Fixed typo "probability" (RT127988, RT136817)
+
0.11 2018-01-31 23:12:44
[CHANGES]
* Added 'minmax_by' (RT124275)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-UtilsBy-0.11/LICENSE
new/List-UtilsBy-0.12/LICENSE
--- old/List-UtilsBy-0.11/LICENSE 2018-02-01 00:21:27.000000000 +0100
+++ new/List-UtilsBy-0.12/LICENSE 2022-04-29 17:33:11.000000000 +0200
@@ -1,4 +1,4 @@
-This software is copyright (c) 2018 by Paul Evans <leon...@leonerd.org.uk>.
+This software is copyright (c) 2022 by Paul Evans <leon...@leonerd.org.uk>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2018 by Paul Evans <leon...@leonerd.org.uk>.
+This software is Copyright (c) 2022 by Paul Evans <leon...@leonerd.org.uk>.
This is free software, licensed under:
@@ -272,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2018 by Paul Evans <leon...@leonerd.org.uk>.
+This software is Copyright (c) 2022 by Paul Evans <leon...@leonerd.org.uk>.
This is free software, licensed under:
@@ -292,21 +292,21 @@
- "Package" refers to the collection of files distributed by the Copyright
Holder, and derivatives of that collection of files created through
- textual modification.
+ textual modification.
- "Standard Version" refers to such a Package if it has not been modified,
or has been modified in accordance with the wishes of the Copyright
- Holder.
+ Holder.
- "Copyright Holder" is whoever is named in the copyright or copyrights for
- the package.
+ the package.
- "You" is you, if you're thinking about copying or distributing this
Package.
- "Reasonable copying fee" is whatever you can justify on the basis of media
cost, duplication charges, time of people involved, and so on. (You will
not be required to justify it to the Copyright Holder, but only to the
- computing community at large as a market that must bear the fee.)
+ computing community at large as a market that must bear the fee.)
- "Freely Available" means that no fee is charged for the item itself, though
there may be fees involved in handling the item. It also means that
recipients of the item may redistribute it under the same conditions they
- received it.
+ received it.
1. You may make and give away verbatim copies of the source form of the
Standard Version of this Package without restriction, provided that you
@@ -373,7 +373,7 @@
9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
The End
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-UtilsBy-0.11/MANIFEST
new/List-UtilsBy-0.12/MANIFEST
--- old/List-UtilsBy-0.11/MANIFEST 2018-02-01 00:21:27.000000000 +0100
+++ new/List-UtilsBy-0.12/MANIFEST 2022-04-29 17:33:11.000000000 +0200
@@ -1,11 +1,8 @@
Build.PL
Changes
lib/List/UtilsBy.pm
-LICENSE
Makefile.PL
MANIFEST This list of files
-META.json
-META.yml
README
t/00use.t
t/01sort_by.t
@@ -21,3 +18,6 @@
t/12bundle_by.t
t/99pod.t
t/Unrandom.pm
+LICENSE
+META.yml
+META.json
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-UtilsBy-0.11/META.json
new/List-UtilsBy-0.12/META.json
--- old/List-UtilsBy-0.11/META.json 2018-02-01 00:21:27.000000000 +0100
+++ new/List-UtilsBy-0.12/META.json 2022-04-29 17:33:11.000000000 +0200
@@ -4,7 +4,7 @@
"Paul Evans <leon...@leonerd.org.uk>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.422",
+ "generated_by" : "Module::Build version 0.4231",
"license" : [
"perl_5"
],
@@ -33,7 +33,7 @@
"provides" : {
"List::UtilsBy" : {
"file" : "lib/List/UtilsBy.pm",
- "version" : "0.11"
+ "version" : "0.12"
}
},
"release_status" : "stable",
@@ -42,6 +42,6 @@
"http://dev.perl.org/licenses/";
]
},
- "version" : "0.11",
- "x_serialization_backend" : "JSON::PP version 2.94"
+ "version" : "0.12",
+ "x_serialization_backend" : "JSON::PP version 4.06"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-UtilsBy-0.11/META.yml
new/List-UtilsBy-0.12/META.yml
--- old/List-UtilsBy-0.11/META.yml 2018-02-01 00:21:27.000000000 +0100
+++ new/List-UtilsBy-0.12/META.yml 2022-04-29 17:33:11.000000000 +0200
@@ -7,7 +7,7 @@
configure_requires:
Module::Build: '0.4004'
dynamic_config: 1
-generated_by: 'Module::Build version 0.422, CPAN::Meta::Converter version
2.150010'
+generated_by: 'Module::Build version 0.4231, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -16,10 +16,10 @@
provides:
List::UtilsBy:
file: lib/List/UtilsBy.pm
- version: '0.11'
+ version: '0.12'
requires:
Exporter: '5.57'
resources:
license: http://dev.perl.org/licenses/
-version: '0.11'
+version: '0.12'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-UtilsBy-0.11/Makefile.PL
new/List-UtilsBy-0.12/Makefile.PL
--- old/List-UtilsBy-0.11/Makefile.PL 2018-02-01 00:21:27.000000000 +0100
+++ new/List-UtilsBy-0.12/Makefile.PL 2022-04-29 17:33:11.000000000 +0200
@@ -1,14 +1,14 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.4220
+# Note: this file was auto-generated by Module::Build::Compat version 0.4231
use ExtUtils::MakeMaker;
WriteMakefile
(
'NAME' => 'List::UtilsBy',
- 'VERSION_FROM' => 'lib/List/UtilsBy.pm',
+ 'EXE_FILES' => [],
+ 'PL_FILES' => {},
+ 'INSTALLDIRS' => 'site',
'PREREQ_PM' => {
'Exporter' => '5.57'
},
- 'INSTALLDIRS' => 'site',
- 'EXE_FILES' => [],
- 'PL_FILES' => {}
+ 'VERSION_FROM' => 'lib/List/UtilsBy.pm'
)
;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-UtilsBy-0.11/README new/List-UtilsBy-0.12/README
--- old/List-UtilsBy-0.11/README 2018-02-01 00:21:27.000000000 +0100
+++ new/List-UtilsBy-0.12/README 2022-04-29 17:33:11.000000000 +0200
@@ -298,7 +298,7 @@
Returns the list of values shuffled into a random order. The
randomisation is not uniform, but weighted by the value returned by the
- WEIGHTFUNC. The probabilty of each item being returned first will be
+ WEIGHTFUNC. The probability of each item being returned first will be
distributed with the distribution of the weights, and so on recursively
for the remaining items.
@@ -315,6 +315,26 @@
If given a list of values whose length does not evenly divide by
$number, the final call will be passed fewer elements than the others.
+EXAMPLES
+
+ As many of these functions both take and return lists of values, more
+ useful behaviours can be created by combining them together.
+
+ Modal Value
+
+ To pick the modal value in a list (i.e. the value that appears most
+ frequently according to some key function) combine count_by and max_by:
+
+ my %counts = count_by { KEYFUNC } ITEMS;
+ my $modal = max_by { $counts{$_} } keys %counts;
+
+ This can be performed in a single step by use of the pairs function
+ from List::Util:
+
+ use List::Util qw( pairs );
+
+ my $modal = ( max_by { $_->value } pairs count_by { KEYFUNC } ITEMS
)->key;
+
TODO
* XS implementations
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-UtilsBy-0.11/lib/List/UtilsBy.pm
new/List-UtilsBy-0.12/lib/List/UtilsBy.pm
--- old/List-UtilsBy-0.11/lib/List/UtilsBy.pm 2018-02-01 00:21:27.000000000
+0100
+++ new/List-UtilsBy-0.12/lib/List/UtilsBy.pm 2022-04-29 17:33:11.000000000
+0200
@@ -1,4 +1,4 @@
-# You may distribute under the terms of either the GNU General Public License
+# it wouldn't hurt to add a new line for such a configuration. You may
distribute under the terms of either the GNU General Public License
# or the Artistic License (the same terms as Perl itself)
#
# (C) Paul Evans, 2009-2018 -- leon...@leonerd.org.uk
@@ -8,7 +8,7 @@
use strict;
use warnings;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
use Exporter 'import';
@@ -589,7 +589,7 @@
Returns the list of values shuffled into a random order. The randomisation is
not uniform, but weighted by the value returned by the C<WEIGHTFUNC>. The
-probabilty of each item being returned first will be distributed with the
+probability of each item being returned first will be distributed with the
distribution of the weights, and so on recursively for the remaining items.
=cut
@@ -647,6 +647,28 @@
return @ret;
}
+=head1 EXAMPLES
+
+As many of these functions both take and return lists of values, more useful
+behaviours can be created by combining them together.
+
+=head2 Modal Value
+
+To pick the modal value in a list (i.e. the value that appears most
+frequently according to some key function) combine C<count_by> and C<max_by>:
+
+ my %counts = count_by { KEYFUNC } ITEMS;
+ my $modal = max_by { $counts{$_} } keys %counts;
+
+This can be performed in a single step by use of the C<pairs> function from
+L<List::Util>:
+
+ use List::Util qw( pairs );
+
+ my $modal = ( max_by { $_->value } pairs count_by { KEYFUNC } ITEMS )->key;
+
+=cut
+
=head1 TODO
=over 4
