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 - co...@suse.com + +- 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 <bd...@cpan.org>" ], "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 <bd...@cpan.org>', '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, bd...@cpan.org 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 <bd...@cpan.org>. All rights reserved. +Copyright © 2005-2018, brian d foy <bd...@cpan.org>. 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 <bd...@cpan.org>. All rights reserved. +Copyright © 2001-2018, brian d foy <bd...@cpan.org>. 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