Hello community,
here is the log from the commit of package perl-Business-ISMN for
openSUSE:Factory checked in at 2018-07-18 22:37:27
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Business-ISMN (Old)
and /work/SRC/openSUSE:Factory/.perl-Business-ISMN.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Business-ISMN"
Wed Jul 18 22:37:27 2018 rev:6 rq:623033 version:1.132
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Business-ISMN/perl-Business-ISMN.changes
2016-12-09 09:34:32.559786135 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Business-ISMN.new/perl-Business-ISMN.changes
2018-07-18 22:37:28.914234149 +0200
@@ -1,0 +2,6 @@
+Sun Jul 15 05:06:50 UTC 2018 - [email protected]
+
+- updated to 1.132
+ see /usr/share/doc/packages/perl-Business-ISMN/Changes
+
+-------------------------------------------------------------------
Old:
----
Business-ISMN-1.131.tar.gz
New:
----
Business-ISMN-1.132.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Business-ISMN.spec ++++++
--- /var/tmp/diff_new_pack.oy9Ivw/_old 2018-07-18 22:37:29.494232228 +0200
+++ /var/tmp/diff_new_pack.oy9Ivw/_new 2018-07-18 22:37:29.498232214 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Business-ISMN
#
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,14 +17,14 @@
Name: perl-Business-ISMN
-Version: 1.131
+Version: 1.132
Release: 0
%define cpan_name Business-ISMN
Summary: Work with International Standard Music Numbers
-License: Artistic-1.0 or GPL-1.0+
+License: Artistic-2.0
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Business-ISMN/
-Source0:
http://www.cpan.org/authors/id/B/BD/BDFOY/%{cpan_name}-%{version}.tar.gz
+Source0:
https://cpan.metacpan.org/authors/id/B/BD/BDFOY/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
@@ -55,6 +55,7 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes examples ismns.txt LICENSE
+%doc Changes examples ismns.txt
+%license LICENSE
%changelog
++++++ Business-ISMN-1.131.tar.gz -> Business-ISMN-1.132.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Business-ISMN-1.131/Changes
new/Business-ISMN-1.132/Changes
--- old/Business-ISMN-1.131/Changes 2016-12-05 20:16:34.000000000 +0100
+++ new/Business-ISMN-1.132/Changes 2018-07-14 02:59:23.000000000 +0200
@@ -1,5 +1,8 @@
Revision history for Perl module Business::ISMN
+1.132 2018-07-14T00:59:12Z
+ * Clarify that it's the Artistic License 2.0
+
1.131 2016-12-05T19:16:19Z
* Remove the prereq test, which I'll do locally instead of everywhere.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Business-ISMN-1.131/MANIFEST.SKIP
new/Business-ISMN-1.132/MANIFEST.SKIP
--- old/Business-ISMN-1.131/MANIFEST.SKIP 2016-12-05 20:16:34.000000000
+0100
+++ new/Business-ISMN-1.132/MANIFEST.SKIP 2018-07-14 02:59:23.000000000
+0200
@@ -59,7 +59,9 @@
\.travis\.yml
+\.?appveyor.yml
\.releaserc
\.lwpcookies
+
Business-.*
hacks/
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Business-ISMN-1.131/META.json
new/Business-ISMN-1.132/META.json
--- old/Business-ISMN-1.131/META.json 2016-12-05 20:16:38.000000000 +0100
+++ new/Business-ISMN-1.132/META.json 2018-07-14 02:59:24.000000000 +0200
@@ -4,9 +4,9 @@
"brian d foy <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter
version 2.140640",
+ "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter
version 2.150010",
"license" : [
- "perl_5"
+ "artistic_2"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
@@ -54,5 +54,6 @@
"web" : "https://github.com/briandfoy/business-ismn";
}
},
- "version" : "1.131"
+ "version" : "1.132",
+ "x_serialization_backend" : "JSON::PP version 2.27400_02"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Business-ISMN-1.131/META.yml
new/Business-ISMN-1.132/META.yml
--- old/Business-ISMN-1.131/META.yml 2016-12-05 20:16:37.000000000 +0100
+++ new/Business-ISMN-1.132/META.yml 2018-07-14 02:59:23.000000000 +0200
@@ -8,8 +8,8 @@
ExtUtils::MakeMaker: '6.64'
File::Spec::Functions: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version
2.140640'
-license: perl
+generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version
2.150010'
+license: artistic_2
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: '1.4'
@@ -26,4 +26,5 @@
bugtracker: https://github.com/briandfoy/business-ismn/issues
homepage: https://github.com/briandfoy/business-ismn
repository: https://github.com/briandfoy/business-ismn.git
-version: '1.131'
+version: '1.132'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Business-ISMN-1.131/Makefile.PL
new/Business-ISMN-1.132/Makefile.PL
--- old/Business-ISMN-1.131/Makefile.PL 2016-12-05 20:16:34.000000000 +0100
+++ new/Business-ISMN-1.132/Makefile.PL 2018-07-14 02:59:23.000000000 +0200
@@ -49,7 +49,7 @@
'NAME' => $module,
'VERSION_FROM' => $main_file,
'ABSTRACT_FROM' => $main_file,
- 'LICENSE' => 'perl',
+ 'LICENSE' => 'artistic_2',
'AUTHOR' => 'brian d foy <[email protected]>',
'CONFIGURE_REQUIRES' => {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Business-ISMN-1.131/README.pod
new/Business-ISMN-1.132/README.pod
--- old/Business-ISMN-1.131/README.pod 2016-12-05 20:16:34.000000000 +0100
+++ new/Business-ISMN-1.132/README.pod 2018-07-14 02:59:23.000000000 +0200
@@ -2,17 +2,27 @@
=encoding utf8
+=for HTML <a href="https://travis-ci.org/briandfoy/business-ismn";><img
src="https://travis-ci.org/briandfoy/business-ismn.svg?branch=master"; /></a>
+
+=for HTML <a
href='https://ci.appveyor.com/project/briandfoy/business-ismn'><img
src='https://ci.appveyor.com/api/projects/status/m0w13dsqp8atfsol' /></a>
+
+=for HTML <a
href='https://coveralls.io/github/briandfoy/business-ismn?branch=master'><img
src='https://coveralls.io/repos/github/briandfoy/business-ismn/badge.svg?branch=master'
alt='Coverage Status' /></a>
+
+=for HTML <a
href="https://github.com/briandfoy/business-ismn/blob/master/LICENSE";><img
src="https://img.shields.io/cpan/l/Business-ISMN.svg"; /></a>
+
+=for HTML <a href="http://www.metacpan.org/module/Business::ISMN";><img
src="https://img.shields.io/cpan/v/Business-ISMN.svg"; /></A>
+
=head1 The Business::ISMN module
-This is the I<README> for the L<Business::ISMN> Perl module. You're probably
+This is the I<README> for the L<Business::ISMN> Perl module. You're probably
looking at this because you don't know where else to find what you're
-looking for. Read this once and you might never have to read one again
+looking for. Read this once and you might never have to read one again
for any Perl module.
=head2 Documentation
-To read about L<Business::ISMN>, look at the embedded documentation
-in the module itself. Inside the distribution, you can format it
+To read about L<Business::ISMN>, look at the embedded documentation
+in the module itself. Inside the distribution, you can format it
with L<perldoc|http://perldoc.perl.org/perldoc.html>:
% perldoc lib/Business/ISMN.pm
@@ -22,17 +32,8 @@
% perldoc Business::ISMN
-You can read the documentation and inspect the meta data on one of the
-CPAN web interfaces, such as L<CPAN
Search|http://search.cpan.org/dist/Business-ISMN> or
-L<MetaCPAN|http://www.metacpan.org/module/Business::ISMN>:
-
-=over 4
-
-=item * L<http://search.cpan.org/dist/Business-ISMN>
-
-=item * L<http://www.metacpan.org/module/Business::ISMN>
-
-=back
+You can read the documentation and inspect the meta data at
+L<MetaCPAN|http://www.metacpan.org/module/Business::ISMN>.
The standard module documentation has example uses in the SYNOPSIS
section, but you can also look in the I<examples/> directory (if it's
@@ -59,11 +60,11 @@
% make test
% make install
-You probably don't want to do that unless you're fiddling with the
+You probably don't want to do that unless you're fiddling with the
module and only want to run the tests without installing anything.
=head2 Source location
-
+
The meta data, such as the source repository and bug tracker, is in
I<Makefile.PL> or the I<META.*> files it creates. You can find that on
those CPAN web interfaces, but you can also look at files directly in
@@ -75,7 +76,7 @@
=back
-If you find a problem, file a ticket in the L<issue
+If you find a problem, file a ticket in the L<issue
tracker|https://github.com/briandfoy/business-ismn/issues>:
=over 4
@@ -94,20 +95,20 @@
L<Stackoverflow|http://www.stackoverflow.com>, both of which have many
competent Perlers who can answer your question, almost in real time.
They might not know the particulars of this module, but they can help
-you diagnose your problem.
+you diagnose your problem.
-You might like to read L<brian's Guide to Solving Any Perl
+You might like to read L<brian's Guide to Solving Any Perl
Problem|http://archive.oreilly.com/pub/a/perl/excerpts/9780596527242/brians-guide.html>.
=head2 Copyright and License
You should have received a I<LICENSE> file, but the license is also noted
in the module files. About the only thing you can't do is pretend that
-you wrote code that you didn't.
+you wrote code that you didn't.
=head2 Good luck!
-Enjoy,
+Enjoy,
brian d foy, [email protected]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Business-ISMN-1.131/lib/Business/ISMN/Data.pm
new/Business-ISMN-1.132/lib/Business/ISMN/Data.pm
--- old/Business-ISMN-1.131/lib/Business/ISMN/Data.pm 2016-12-05
20:16:34.000000000 +0100
+++ new/Business-ISMN-1.132/lib/Business/ISMN/Data.pm 2018-07-14
02:59:23.000000000 +0200
@@ -1,7 +1,7 @@
package Business::ISMN::Data;
use strict;
-our $VERSION = '1.131';
+our $VERSION = '1.132';
=encoding utf8
@@ -23,10 +23,10 @@
=head1 COPYRIGHT AND LICENSE
-Copyright © 2005-2016, brian d foy <[email protected]>. All rights reserved.
+Copyright © 2005-2018, brian d foy <[email protected]>. All rights reserved.
This program is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
+it under the terms of the Artistic License 2.0.
=cut
@@ -66,8 +66,7 @@
'US' => [ ['081', '099'], [3005, 3205], [58000, 58199], [60001, 60002],
[800000, 800199], [9012000, 9012099] ],
);
-foreach my $key ( keys %publisher_data )
- {
+foreach my $key ( keys %publisher_data ) {
my @pairs = map { [ $key, @$_ ] } @{ $publisher_data{$key} };
push @publisher_tuples, @pairs;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Business-ISMN-1.131/lib/Business/ISMN.pm
new/Business-ISMN-1.132/lib/Business/ISMN.pm
--- old/Business-ISMN-1.131/lib/Business/ISMN.pm 2016-12-05
20:16:34.000000000 +0100
+++ new/Business-ISMN-1.132/lib/Business/ISMN.pm 2018-07-14
02:59:23.000000000 +0200
@@ -1,7 +1,6 @@
package Business::ISMN;
use strict;
-use base qw(Exporter);
use subs qw(
_common_format _checksum is_valid_checksum
INVALID_PUBLISHER_CODE
@@ -9,21 +8,20 @@
GOOD_ISMN
BAD_ISMN
);
-use vars qw( $VERSION @ISA @EXPORT_OK $debug %country_data
- $MAX_COUNTRY_CODE_LENGTH );
+use vars qw( $debug %country_data $MAX_COUNTRY_CODE_LENGTH );
use Carp qw(carp);
-use Exporter;
+use Exporter qw(import);
use List::Util qw(sum);
use Tie::Cycle;
use Business::ISMN::Data;
my $debug = 0;
-@EXPORT_OK = qw(is_valid_checksum ean_to_ismn ismn_to_ean
+our @EXPORT_OK = qw(is_valid_checksum ean_to_ismn ismn_to_ean
INVALID_PUBLISHER_CODE BAD_CHECKSUM GOOD_ISMN BAD_ISMN);
-($VERSION) = '1.131';
+our $VERSION = '1.132';
sub INVALID_PUBLISHER_CODE { -3 };
sub BAD_CHECKSUM { -1 };
@@ -43,8 +41,7 @@
9 7
);
-sub new
- {
+sub new {
my $class = shift;
my $common_data = _common_format shift;
@@ -98,8 +95,7 @@
sub hyphen_positions () { my $self = shift; return @{$self->{'positions'}} }
-sub fix_checksum
- {
+sub fix_checksum {
my $self = shift;
my $last_char = substr($self->{'ismn'}, 9, 1);
@@ -113,8 +109,7 @@
return 1;
}
-sub as_string
- {
+sub as_string {
my $self = shift;
my $array_ref = shift;
@@ -134,8 +129,7 @@
return $ismn;
}
-sub as_ean
- {
+sub as_ean {
my $self = shift;
my $ismn = ref $self ? $self->as_string([]) : _common_format $self;
@@ -148,8 +142,7 @@
my $ean = '979' . substr($ismn, 0, 9);
my $sum = 0;
- foreach my $index ( 0, 2, 4, 6, 8, 10 )
- {
+ foreach my $index ( 0, 2, 4, 6, 8, 10 ) {
$sum += substr($ean, $index, 1);
$sum += 3 * substr($ean, $index + 1, 1);
}
@@ -162,20 +155,17 @@
return $ean;
}
-sub is_valid_publisher_code
- {
+sub is_valid_publisher_code {
my $self = shift;
my $code = $self->publisher_code;
my $success = 0;
- foreach my $tuple ( @publisher_tuples )
- {
+ foreach my $tuple ( @publisher_tuples ) {
no warnings;
next if( defined $tuple->[2] and $code > $tuple->[2] );
last if $code < $tuple->[1];
- if( $code >= $tuple->[1] and $code <= $tuple->[2] )
- {
+ if( $code >= $tuple->[1] and $code <= $tuple->[2] ) {
$success = 1;
$self->{'publisher'} = $tuple->[0];
last;
@@ -185,8 +175,7 @@
return $success;
}
-sub is_valid_checksum
- {
+sub is_valid_checksum {
my $data = _common_format shift;
return BAD_ISMN unless defined $data;
@@ -196,8 +185,7 @@
return BAD_CHECKSUM;
}
-sub ean_to_ismn
- {
+sub ean_to_ismn {
my $ean = shift;
$ean =~ s/[^0-9]//g;
@@ -216,8 +204,7 @@
}
-sub ismn_to_ean
- {
+sub ismn_to_ean {
my $ismn = _common_format shift;
return unless (defined $ismn and is_valid_checksum($ismn) eq GOOD_ISMN);
@@ -225,15 +212,13 @@
return as_ean($ismn);
}
-sub png_barcode
- {
+sub png_barcode {
my $self = shift;
my $ean = ismn_to_ean( $self->as_string([]) );
eval "use GD::Barcode::EAN13";
- if( $@ )
- {
+ if( $@ ) {
carp "GD::Barcode::EAN13 required to make PNG barcodes";
return;
}
@@ -244,17 +229,14 @@
}
#internal function. you don't get to use this one.
-sub _check_validity
- {
+sub _check_validity {
my $self = shift;
if( is_valid_checksum $self->{'ismn'} eq GOOD_ISMN
- and defined $self->{'publisher_code'} )
- {
+ and defined $self->{'publisher_code'} ) {
$self->{'valid'} = GOOD_ISMN;
}
- else
- {
+ else {
$self->{'valid'} = INVALID_PUBLISHER_CODE
unless defined $self->{'publisher_code'};
$self->{'valid'} = GOOD_ISMN
@@ -263,8 +245,7 @@
}
#internal function. you don't get to use this one.
-sub _checksum
- {
+sub _checksum {
my $data = _common_format shift;
tie my $factor, 'Tie::Cycle', [ 1, 3 ];
@@ -272,13 +253,11 @@
my $sum = 9;
- foreach my $digit ( split //, substr( $data, 1, 8 ) )
- {
+ foreach my $digit ( split //, substr( $data, 1, 8 ) ) {
my $mult = $factor;
$sum += $digit * $mult;
}
-
#return what the check digit should be
# the extra mod 10 turns 10 into 0.
my $checksum = ( 10 - ($sum % 10) ) % 10;
@@ -546,7 +525,7 @@
This source is in Github:
- http://github.com/briandfoy/business--isbn/tree/master
+ https://github.com/briandfoy/business-ismn/
=head1 AUTHOR
@@ -554,8 +533,8 @@
=head1 COPYRIGHT AND LICENSE
-Copyright © 2001-2016, brian d foy <[email protected]>. All rights reserved.
+Copyright © 2001-2018, brian d foy <[email protected]>. All rights reserved.
-You may redistribute this under the same terms as Perl itself.
+You may redistribute this under the terms of the Artistic License 2.0.
=cut
![https://travis-ci.org/briandfoy/business-ismn.svg?branch=master"](https://travis-ci.org/briandfoy/business-ismn.svg?branch=master"){kind=link}
![https://img.shields.io/cpan/l/Business-ISMN.svg"](https://img.shields.io/cpan/l/Business-ISMN.svg"){kind=link}
![https://img.shields.io/cpan/v/Business-ISMN.svg"](https://img.shields.io/cpan/v/Business-ISMN.svg"){kind=link}