Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Business-ISBN for openSUSE:Factory checked in at 2026-05-16 19:24:23 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Business-ISBN (Old) and /work/SRC/openSUSE:Factory/.perl-Business-ISBN.new.1966 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Business-ISBN" Sat May 16 19:24:23 2026 rev:34 rq:1353085 version:3.14.0 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Business-ISBN/perl-Business-ISBN.changes 2025-05-23 14:31:26.030809681 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Business-ISBN.new.1966/perl-Business-ISBN.changes 2026-05-16 19:25:15.967856735 +0200 @@ -1,0 +2,12 @@ +Thu May 7 08:02:50 UTC 2026 - Tina Müller <[email protected]> + +- updated to 3.14.0 (3.014) + see /usr/share/doc/packages/perl-Business-ISBN/Changes + + 3.014 2026-05-07T03:15:25Z + * update tests whose bad ISBNs are now good (#27) + + 3.013 2026-03-11T18:28:36Z + * be more careful about guarding ->png in png_barcode (#6) + +------------------------------------------------------------------- Old: ---- Business-ISBN-3.012.tar.gz New: ---- Business-ISBN-3.014.tar.gz README.md _scmsync.obsinfo build.specials.obscpio ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Business-ISBN.spec ++++++ --- /var/tmp/diff_new_pack.koePV5/_old 2026-05-16 19:25:16.491878181 +0200 +++ /var/tmp/diff_new_pack.koePV5/_new 2026-05-16 19:25:16.495878345 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Business-ISBN # -# Copyright (c) 2025 SUSE LLC +# Copyright (c) 2026 SUSE LLC and contributors # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,23 +18,23 @@ %define cpan_name Business-ISBN Name: perl-Business-ISBN -Version: 3.12.0 +Version: 3.14.0 Release: 0 -# 3.012 -> normalize -> 3.12.0 -%define cpan_version 3.012 +# 3.014 -> normalize -> 3.14.0 +%define cpan_version 3.014 License: Artistic-2.0 Summary: Work with International Standard Book Numbers URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/B/BR/BRIANDFOY/%{cpan_name}-%{cpan_version}.tar.gz Source1: cpanspec.yml +Source100: README.md BuildArch: noarch BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(Business::ISBN::Data) >= 20230322.1.0 +BuildRequires: perl(Business::ISBN::Data) >= 20230322.1 BuildRequires: perl(ExtUtils::MakeMaker) >= 6.64 BuildRequires: perl(Test::More) >= 1 -BuildRequires: perl(version) >= 0.86 -Requires: perl(Business::ISBN::Data) >= 20230322.1.0 +Requires: perl(Business::ISBN::Data) >= 20230322.1 Provides: perl(Business::ISBN) = %{version} Provides: perl(Business::ISBN10) = %{version} Provides: perl(Business::ISBN13) = %{version} ++++++ Business-ISBN-3.012.tar.gz -> Business-ISBN-3.014.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/Changes new/Business-ISBN-3.014/Changes --- old/Business-ISBN-3.012/Changes 2025-04-14 20:53:47.000000000 +0200 +++ new/Business-ISBN-3.014/Changes 2026-05-07 05:15:26.000000000 +0200 @@ -1,5 +1,11 @@ Revision history for Perl module Business::ISBN +3.014 2026-05-07T03:15:25Z + * update tests whose bad ISBNs are now good (#27) + +3.013 2026-03-11T18:28:36Z + * be more careful about guarding ->png in png_barcode (#6) + 3.012 2025-04-14T18:53:47Z * require a newer version.pm for v5.10.1 tests diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/MANIFEST.SKIP new/Business-ISBN-3.014/MANIFEST.SKIP --- old/Business-ISBN-3.012/MANIFEST.SKIP 2025-04-14 20:53:47.000000000 +0200 +++ new/Business-ISBN-3.014/MANIFEST.SKIP 2026-05-07 05:15:26.000000000 +0200 @@ -81,3 +81,5 @@ \.gitattributes\b .circleci/ + +.downstream.json diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/META.json new/Business-ISBN-3.014/META.json --- old/Business-ISBN-3.012/META.json 2025-04-14 20:53:48.000000000 +0200 +++ new/Business-ISBN-3.014/META.json 2026-05-07 05:15:27.000000000 +0200 @@ -37,8 +37,7 @@ }, "test" : { "requires" : { - "Test::More" : "1", - "version" : "0.86" + "Test::More" : "1" } } }, @@ -54,6 +53,6 @@ "web" : "https://github.com/briandfoy/business-isbn"; } }, - "version" : "3.012", + "version" : "3.014", "x_serialization_backend" : "JSON::PP version 4.16" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/META.yml new/Business-ISBN-3.014/META.yml --- old/Business-ISBN-3.012/META.yml 2025-04-14 20:53:48.000000000 +0200 +++ new/Business-ISBN-3.014/META.yml 2026-05-07 05:15:27.000000000 +0200 @@ -4,7 +4,6 @@ - 'brian d foy <[email protected]>' build_requires: Test::More: '1' - version: '0.86' configure_requires: ExtUtils::MakeMaker: '6.64' File::Spec::Functions: '0' @@ -26,5 +25,5 @@ bugtracker: https://github.com/briandfoy/business-isbn/issues homepage: https://github.com/briandfoy/business-isbn repository: https://github.com/briandfoy/business-isbn -version: '3.012' +version: '3.014' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/Makefile.PL new/Business-ISBN-3.014/Makefile.PL --- old/Business-ISBN-3.012/Makefile.PL 2025-04-14 20:53:47.000000000 +0200 +++ new/Business-ISBN-3.014/Makefile.PL 2026-05-07 05:15:26.000000000 +0200 @@ -35,6 +35,23 @@ =cut +BEGIN { +use ExtUtils::MM_Any; +no warnings qw(redefine); + +# get rid of the warning about README.pod, because I'm using it. +# It's also in INSTALL.SKIP +sub ExtUtils::MM_Any::libscan { + my($self,$path) = @_; + + my($dirs,$file) = ($self->splitpath($path))[1,2]; + return '' if grep /^(?:RCS|CVS|SCCS|\.svn|_darcs)$/, + $self->splitdir($dirs), $file; + + return $path; + } +} + use File::Spec::Functions qw(catfile); my $module = __PACKAGE__; @@ -62,7 +79,6 @@ 'TEST_REQUIRES' => { 'Test::More' => '1', - 'version' => '0.86', }, 'PREREQ_PM' => { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/lib/Business/ISBN.pm new/Business-ISBN-3.014/lib/Business/ISBN.pm --- old/Business-ISBN-3.012/lib/Business/ISBN.pm 2025-04-14 20:53:47.000000000 +0200 +++ new/Business-ISBN-3.014/lib/Business/ISBN.pm 2026-05-07 05:15:26.000000000 +0200 @@ -127,7 +127,7 @@ ); }; -our $VERSION = '3.012'; +our $VERSION = '3.014'; sub ARTICLE_CODE_OUT_OF_RANGE () { -5 } sub INVALID_PREFIX () { -4 }; @@ -662,14 +662,21 @@ my $ean = $self->as_isbn13->as_string([]); - eval "use GD::Barcode::EAN13"; - if( $@ ) - { + eval { require GD::Barcode::EAN13 }; + if( $@ ) { carp "Need GD::Barcode::EAN13 to use png_barcode!"; return; } - my $image = GD::Barcode::EAN13->new($ean)->plot->png; + my $gd_image = GD::Barcode::EAN13->new($ean)->plot; + my $image; + if( $gd_image->can('png') ) { + $image = GD::Barcode::EAN13->new($ean)->plot->png; + } + else { + carp "Your GD module does not have PNG support"; + return; + } return $image; } @@ -898,7 +905,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright © 2001-2025, brian d foy <[email protected]>. All rights reserved. +Copyright © 2001-2026, brian d foy <[email protected]>. All rights reserved. This module is licensed under the Artistic License 2.0. See the LICENSE file in the distribution, or https://opensource.org/licenses/Artistic-2.0 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/lib/Business/ISBN10.pm new/Business-ISBN-3.014/lib/Business/ISBN10.pm --- old/Business-ISBN-3.012/lib/Business/ISBN10.pm 2025-04-14 20:53:47.000000000 +0200 +++ new/Business-ISBN-3.014/lib/Business/ISBN10.pm 2026-05-07 05:15:26.000000000 +0200 @@ -15,7 +15,7 @@ my $debug = 0; -our $VERSION = '3.012'; +our $VERSION = '3.014'; sub _max_length { 10 } @@ -106,7 +106,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright © 2001-2025, brian d foy <[email protected]>. All rights reserved. +Copyright © 2001-2026, brian d foy <[email protected]>. All rights reserved. This module is licensed under the Artistic License 2.0. See the LICENSE file in the distribution, or https://opensource.org/licenses/Artistic-2.0 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/lib/Business/ISBN13.pm new/Business-ISBN-3.014/lib/Business/ISBN13.pm --- old/Business-ISBN-3.012/lib/Business/ISBN13.pm 2025-04-14 20:53:47.000000000 +0200 +++ new/Business-ISBN-3.014/lib/Business/ISBN13.pm 2026-05-07 05:15:26.000000000 +0200 @@ -11,7 +11,7 @@ my $debug = 0; -our $VERSION = '3.012'; +our $VERSION = '3.014'; sub _max_length { 13 } @@ -114,7 +114,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright © 2001-2025, brian d foy <[email protected]>. All rights reserved. +Copyright © 2001-2026, brian d foy <[email protected]>. All rights reserved. This module is licensed under the Artistic License 2.0. See the LICENSE file in the distribution, or https://opensource.org/licenses/Artistic-2.0 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/t/errors.t new/Business-ISBN-3.014/t/errors.t --- old/Business-ISBN-3.012/t/errors.t 2025-04-14 20:53:47.000000000 +0200 +++ new/Business-ISBN-3.014/t/errors.t 2026-05-07 05:15:26.000000000 +0200 @@ -8,7 +8,7 @@ subtest bad_group => sub { can_ok( $class, qw(error_is_bad_group error_text error) ); # blake and taylor fake ISBNs for their DVDs - my @bad_isbns = qw(9786616294241 6616294247); + my @bad_isbns = qw(9786106294241 6106294247); foreach my $try ( @bad_isbns ) { my $isbn = $class->new( $try ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/t/png_barcode.t new/Business-ISBN-3.014/t/png_barcode.t --- old/Business-ISBN-3.012/t/png_barcode.t 2025-04-14 20:53:47.000000000 +0200 +++ new/Business-ISBN-3.014/t/png_barcode.t 2026-05-07 05:15:26.000000000 +0200 @@ -5,7 +5,7 @@ my $loaded = eval { require GD::Barcode::EAN13 }; -my $GD_okay = eval { GD::Font->Small }; +my $GD_okay = eval { require GD; GD::Font->Small }; unless( $loaded ) { @@ -19,23 +19,23 @@ else { plan( tests => 8 ); - + my $class = 'Business::ISBN'; - + use_ok( $class ); - + ok( defined &Business::ISBN::png_barcode, "Method defined" ); - + foreach my $num ( qw( 0596527241 9780596527242 ) ) { my $isbn = Business::ISBN->new( $num ); isa_ok( $isbn, $class ); - + ok( $isbn->is_valid, "Valid ISBN" ); - + my $png = eval { $isbn->png_barcode }; my $at = $@; ok( defined $png, "PNG defined for $num" ); diag( "Eval error for $num: $at" ) if length $at; } - } \ No newline at end of file + } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Business-ISBN-3.012/xt/changes.t new/Business-ISBN-3.014/xt/changes.t --- old/Business-ISBN-3.012/xt/changes.t 2025-04-14 20:53:47.000000000 +0200 +++ new/Business-ISBN-3.014/xt/changes.t 2026-05-07 05:15:26.000000000 +0200 @@ -1,4 +1,4 @@ use Test::More; -eval 'use Test::CPAN::Changes'; -plan skip_all => 'Test::CPAN::Changes required for this test' if $@; +eval 'use Test::CPAN::Changes 0.500005'; +plan skip_all => 'Test::CPAN::Changes 0.500005 required for this test' if $@; changes_ok(); ++++++ README.md ++++++ ## Build Results Current state of perl in openSUSE:Factory is  The current state of perl in the devel project build (devel:languages:perl)  ++++++ _scmsync.obsinfo ++++++ mtime: 1778140971 commit: 171959f00f0de130e05291c6b74882e8569da7a8bbe85f9e47b60640ad3a414b url: https://src.opensuse.org/perl/perl-Business-ISBN revision: 171959f00f0de130e05291c6b74882e8569da7a8bbe85f9e47b60640ad3a414b projectscmsync: https://src.opensuse.org/perl/_ObsPrj ++++++ build.specials.obscpio ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/.gitignore new/.gitignore --- old/.gitignore 1970-01-01 01:00:00.000000000 +0100 +++ new/.gitignore 2026-05-07 10:02:51.000000000 +0200 @@ -0,0 +1 @@ +.osc
