Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-GD-Barcode for openSUSE:Factory
checked in at 2025-10-07 18:26:02
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-GD-Barcode (Old)
and /work/SRC/openSUSE:Factory/.perl-GD-Barcode.new.11973 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-GD-Barcode"
Tue Oct 7 18:26:02 2025 rev:19 rq:1309344 version:2.10.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-GD-Barcode/perl-GD-Barcode.changes
2024-03-09 20:56:17.982136210 +0100
+++
/work/SRC/openSUSE:Factory/.perl-GD-Barcode.new.11973/perl-GD-Barcode.changes
2025-10-07 18:26:28.832667350 +0200
@@ -1,0 +2,13 @@
+Tue Aug 26 13:56:07 UTC 2025 - Tina Müller <[email protected]>
+
+- updated to 2.10.0 (2.01)
+ see /usr/share/doc/packages/perl-GD-Barcode/Changes
+
+ 2.01 2025-07-24
+ - Fix unitialized value warning in QRcode.pm, contributed
+ by Dabe Murphy
+ - Documentation improvements
+ - Test improvements, fixed issue where ISBN::Barcode test missed
+ depencendy on GD, reported by eserte
+
+-------------------------------------------------------------------
Old:
----
GD-Barcode-2.00.tar.gz
New:
----
GD-Barcode-2.01.tar.gz
README.md
_scmsync.obsinfo
build.specials.obscpio
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-GD-Barcode.spec ++++++
--- /var/tmp/diff_new_pack.jORtqi/_old 2025-10-07 18:26:29.292686737 +0200
+++ /var/tmp/diff_new_pack.jORtqi/_new 2025-10-07 18:26:29.292686737 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-GD-Barcode
#
-# Copyright (c) 2024 SUSE LLC
+# Copyright (c) 2025 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,32 +18,34 @@
%define cpan_name GD-Barcode
Name: perl-GD-Barcode
-Version: 2.0.0
+Version: 2.10.0
Release: 0
-%define cpan_version 2.00
+# 2.01 -> normalize -> 2.10.0
+%define cpan_version 2.01
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Create barcode image with GD
URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/M/MI/MICHIELB/%{cpan_name}-%{cpan_version}.tar.gz
+Source100: README.md
BuildArch: noarch
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(Test2::V0) >= 0.000060
BuildRequires: perl(parent)
Requires: perl(parent)
-Provides: perl(GD::Barcode) = 2.0.0
-Provides: perl(GD::Barcode::COOP2of5) = 2.0.0
-Provides: perl(GD::Barcode::Code39) = 2.0.0
-Provides: perl(GD::Barcode::EAN13) = 2.0.0
-Provides: perl(GD::Barcode::EAN8) = 2.0.0
-Provides: perl(GD::Barcode::IATA2of5) = 2.0.0
-Provides: perl(GD::Barcode::ITF) = 2.0.0
-Provides: perl(GD::Barcode::Industrial2of5) = 2.0.0
-Provides: perl(GD::Barcode::Matrix2of5) = 2.0.0
-Provides: perl(GD::Barcode::NW7) = 2.0.0
-Provides: perl(GD::Barcode::QRcode) = 2.0.0
-Provides: perl(GD::Barcode::UPCA) = 2.0.0
-Provides: perl(GD::Barcode::UPCE) = 2.0.0
+Provides: perl(GD::Barcode) = %{version}
+Provides: perl(GD::Barcode::COOP2of5) = %{version}
+Provides: perl(GD::Barcode::Code39) = %{version}
+Provides: perl(GD::Barcode::EAN13) = %{version}
+Provides: perl(GD::Barcode::EAN8) = %{version}
+Provides: perl(GD::Barcode::IATA2of5) = %{version}
+Provides: perl(GD::Barcode::ITF) = %{version}
+Provides: perl(GD::Barcode::Industrial2of5) = %{version}
+Provides: perl(GD::Barcode::Matrix2of5) = %{version}
+Provides: perl(GD::Barcode::NW7) = %{version}
+Provides: perl(GD::Barcode::QRcode) = %{version}
+Provides: perl(GD::Barcode::UPCA) = %{version}
+Provides: perl(GD::Barcode::UPCE) = %{version}
%undefine __perllib_provides
%{perl_requires}
@@ -55,7 +57,7 @@
From 1.14, you can use this module even if no GD (except plot method).
%prep
-%autosetup -n %{cpan_name}-%{cpan_version}
+%autosetup -n %{cpan_name}-%{cpan_version} -p1
%build
perl Makefile.PL INSTALLDIRS=vendor
++++++ GD-Barcode-2.00.tar.gz -> GD-Barcode-2.01.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/Changes new/GD-Barcode-2.01/Changes
--- old/GD-Barcode-2.00/Changes 2023-09-13 22:56:13.000000000 +0200
+++ new/GD-Barcode-2.01/Changes 2025-07-24 22:48:09.000000000 +0200
@@ -1,5 +1,12 @@
Revision history for Perl extension GD::Barcode.
+2.01 2025-07-24
+ - Fix unitialized value warning in QRcode.pm, contributed
+ by Dabe Murphy
+ - Documentation improvements
+ - Test improvements, fixed issue where ISBN::Barcode test missed
+ depencendy on GD, reported by eserte
+
2.00 2023-09-13
- 'Production' release, no changes to 1.99_03
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/MANIFEST new/GD-Barcode-2.01/MANIFEST
--- old/GD-Barcode-2.00/MANIFEST 2023-09-13 22:57:56.000000000 +0200
+++ new/GD-Barcode-2.01/MANIFEST 2025-07-24 22:48:20.000000000 +0200
@@ -222,6 +222,8 @@
t/itf.t
t/matrix2of5.t
t/nw7.t
+t/plot.t
+t/qrcode-image.t
t/qrcode.t
t/upca.t
t/upce.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/MANIFEST.SKIP
new/GD-Barcode-2.01/MANIFEST.SKIP
--- old/GD-Barcode-2.00/MANIFEST.SKIP 2023-09-13 22:53:13.000000000 +0200
+++ new/GD-Barcode-2.01/MANIFEST.SKIP 2024-03-17 22:26:43.000000000 +0100
@@ -1,15 +1,8 @@
#!start included
/Users/michiel/.plenv/versions/5.22.1/lib/perl5/5.22.1/ExtUtils/MANIFEST.SKIP
# Avoid version control files.
-\bRCS\b
-\bCVS\b
-\bSCCS\b
-,v$
-\B\.svn\b
\B\.git\b
\B\.gitignore\b
-\b_darcs\b
-\B\.cvsignore$
# Avoid VMS specific MakeMaker generated files
\bDescrip.MMS$
@@ -68,10 +61,12 @@
\B\.git\b
^Makefile(\.old)?$
.gitignore
+.github
^GD-Barcode-\d
\.bak$
\.tmp$
\.o$
^MYMETA
.mailmap
-.travis.yml
+cpanfile
+webapp
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/META.json
new/GD-Barcode-2.01/META.json
--- old/GD-Barcode-2.00/META.json 2023-09-13 22:57:56.000000000 +0200
+++ new/GD-Barcode-2.01/META.json 2025-07-24 22:48:20.000000000 +0200
@@ -51,6 +51,6 @@
"url" : "https://github.com/mbeijen/GD-Barcode";
}
},
- "version" : "2.00",
+ "version" : "2.01",
"x_serialization_backend" : "JSON::PP version 4.07"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/META.yml new/GD-Barcode-2.01/META.yml
--- old/GD-Barcode-2.00/META.yml 2023-09-13 22:57:55.000000000 +0200
+++ new/GD-Barcode-2.01/META.yml 2025-07-24 22:48:20.000000000 +0200
@@ -24,5 +24,5 @@
resources:
bugtracker: https://github.com/mbeijen/GD-Barcode/issues
repository: https://github.com/mbeijen/GD-Barcode
-version: '2.00'
+version: '2.01'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/README new/GD-Barcode-2.01/README
--- old/GD-Barcode-2.00/README 2023-09-13 22:53:13.000000000 +0200
+++ new/GD-Barcode-2.01/README 2024-03-09 14:41:36.000000000 +0100
@@ -64,7 +64,7 @@
Kawai Takanori [email protected]
COPYRIGHT
- The GD::Barocde module is Copyright (c) 2000 Kawai Takanori. Japan. All
+ The GD::Barcode module is Copyright (c) 2000 Kawai Takanori. Japan. All
rights reserved.
You may distribute under the terms of either the GNU General Public
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/COOP2of5.pm
new/GD-Barcode-2.01/lib/GD/Barcode/COOP2of5.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/COOP2of5.pm 2023-09-13
22:55:07.000000000 +0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/COOP2of5.pm 2025-07-24
22:48:09.000000000 +0200
@@ -6,7 +6,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-our $VERSION = '2.00';
+our $VERSION = '2.01';
sub new {
my ( $sClass, $sTxt ) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/Code39.pm
new/GD-Barcode-2.01/lib/GD/Barcode/Code39.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/Code39.pm 2023-09-13
22:55:07.000000000 +0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/Code39.pm 2025-07-24
22:48:09.000000000 +0200
@@ -6,7 +6,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-our $VERSION = '2.00';
+our $VERSION = '2.01';
my $code39Bar = {
'0' => '000110100',
'1' => '100100001',
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/EAN13.pm
new/GD-Barcode-2.01/lib/GD/Barcode/EAN13.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/EAN13.pm 2023-09-13 22:55:07.000000000
+0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/EAN13.pm 2025-07-24 22:48:09.000000000
+0200
@@ -5,7 +5,7 @@
use GD::Barcode;
-our $VERSION = '2.00';
+our $VERSION = '2.01';
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/EAN8.pm
new/GD-Barcode-2.01/lib/GD/Barcode/EAN8.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/EAN8.pm 2023-09-13 22:55:07.000000000
+0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/EAN8.pm 2025-07-24 22:48:09.000000000
+0200
@@ -6,7 +6,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-our $VERSION = '2.00';
+our $VERSION = '2.01';
my $leftOddBar = {
'0' => '0001101',
'1' => '0011001',
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/IATA2of5.pm
new/GD-Barcode-2.01/lib/GD/Barcode/IATA2of5.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/IATA2of5.pm 2023-09-13
22:55:07.000000000 +0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/IATA2of5.pm 2025-07-24
22:48:09.000000000 +0200
@@ -6,7 +6,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-our $VERSION = '2.00';
+our $VERSION = '2.01';
sub new {
my ( $sClass, $sTxt ) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/ITF.pm
new/GD-Barcode-2.01/lib/GD/Barcode/ITF.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/ITF.pm 2023-09-13 22:55:07.000000000
+0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/ITF.pm 2025-07-24 22:48:09.000000000
+0200
@@ -6,7 +6,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-our $VERSION = '2.00';
+our $VERSION = '2.01';
sub new {
my ( $sClass, $sTxt ) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/Industrial2of5.pm
new/GD-Barcode-2.01/lib/GD/Barcode/Industrial2of5.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/Industrial2of5.pm 2023-09-13
22:55:07.000000000 +0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/Industrial2of5.pm 2025-07-24
22:48:09.000000000 +0200
@@ -6,7 +6,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-our $VERSION = '2.00';
+our $VERSION = '2.01';
sub new {
my ( $sClass, $sTxt ) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/Matrix2of5.pm
new/GD-Barcode-2.01/lib/GD/Barcode/Matrix2of5.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/Matrix2of5.pm 2023-09-13
22:55:07.000000000 +0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/Matrix2of5.pm 2025-07-24
22:48:09.000000000 +0200
@@ -6,7 +6,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-our $VERSION = '2.00';
+our $VERSION = '2.01';
sub new {
my ( $sClass, $sTxt ) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/NW7.pm
new/GD-Barcode-2.01/lib/GD/Barcode/NW7.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/NW7.pm 2023-09-13 22:55:07.000000000
+0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/NW7.pm 2025-07-24 22:48:09.000000000
+0200
@@ -6,7 +6,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-our $VERSION = '2.00';
+our $VERSION = '2.01';
my $nw7Bar = {
'0' => '0000011',
'1' => '0000110',
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/QRcode.pm
new/GD-Barcode-2.01/lib/GD/Barcode/QRcode.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/QRcode.pm 2023-09-13
22:55:07.000000000 +0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/QRcode.pm 2025-07-24
22:48:09.000000000 +0200
@@ -8,7 +8,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-$VERSION = '2.00';
+$VERSION = '2.01';
sub new {
my ( $sClass, $sTxt, $rhPrm ) = @_;
@@ -122,7 +122,7 @@
while ($iFlg) {
if ( $iRestBits > $iBuffBit ) {
$aCodeWords[$iCodeWords] =
- ( ( $aCodeWords[$iCodeWords] << $iBuffBit ) | $sBuff );
+ ( ( ( $aCodeWords[$iCodeWords] // 0 ) << $iBuffBit ) |
$sBuff );
$iRestBits -= $iBuffBit;
$iFlg = 0;
}
@@ -214,8 +214,8 @@
for ( my $iMatrixRemain = $iRemainBits ; $iMatrixRemain ; $iMatrixRemain--
)
{
my $iRemainBitTmp = $iMatrixRemain + ( $iMaxCodeWords * 8 );
- $aCont[ $aMatrixX[$iRemainBitTmp] ][ $aMatrixY[$iRemainBitTmp] ] =
- ( 255 ^ $aMask[$iRemainBitTmp] );
+ $aCont[ $aMatrixX[$iRemainBitTmp] // 0 ][ $aMatrixY[$iRemainBitTmp] //
0 ] =
+ ( 255 ^ ( $aMask[$iRemainBitTmp] // 0 ) );
}
# ---- mask select
@@ -5051,7 +5051,7 @@
=head1 NAME
-GD::Barcode::QRcode - Create QRcode barcode image with GD
+GD::Barcode::QRcode - Create QRcode barcode images with GD
=head1 SYNOPSIS
@@ -5065,14 +5065,14 @@
I<with UnitSize, ECC settings>
my $oGdBar = GD::Barcode::QRcode->new('123456789',
- { Ecc => 'L', Version=>2, ModuleSize => 2}
+ { Ecc => 'L', Version=>2, ModuleSize => 20}
);
=head1 DESCRIPTION
GD::Barcode::QRcode is a subclass of GD::Barcode and allows you to
-create QRcode barcode image with GD.
+create QRcode barcode images with GD.
This module based on "QRcode image CGI version 0.50 (C)2000-2002,Y.Swetake".
=head2 new
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/UPCA.pm
new/GD-Barcode-2.01/lib/GD/Barcode/UPCA.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/UPCA.pm 2023-09-13 22:55:07.000000000
+0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/UPCA.pm 2025-07-24 22:48:09.000000000
+0200
@@ -6,7 +6,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-our $VERSION = '2.00';
+our $VERSION = '2.01';
my $leftOddBar = {
"0" => "0001101",
"1" => "0011001",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode/UPCE.pm
new/GD-Barcode-2.01/lib/GD/Barcode/UPCE.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode/UPCE.pm 2023-09-13 22:55:07.000000000
+0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode/UPCE.pm 2025-07-24 22:48:09.000000000
+0200
@@ -5,7 +5,7 @@
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA = qw(GD::Barcode Exporter);
-$VERSION = '2.00';
+$VERSION = '2.01';
my $oddEven4UPCE = {
0 => 'EEEOOO',
1 => 'EEOEOO',
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/lib/GD/Barcode.pm
new/GD-Barcode-2.01/lib/GD/Barcode.pm
--- old/GD-Barcode-2.00/lib/GD/Barcode.pm 2023-09-13 22:55:07.000000000
+0200
+++ new/GD-Barcode-2.01/lib/GD/Barcode.pm 2025-07-24 22:48:09.000000000
+0200
@@ -5,7 +5,7 @@
use vars qw( @ISA $errStr);
use parent qw(Exporter);
-our $VERSION = '2.00';
+our $VERSION = '2.01';
sub new {
my ( $sClass, $sType, $sTxt, $rhPrm ) = @_;
@@ -155,7 +155,7 @@
=head1 COPYRIGHT
-The GD::Barocde module is Copyright (c) 2000 Kawai Takanori. Japan.
+The GD::Barcode module is Copyright (c) 2000 Kawai Takanori. Japan.
All rights reserved.
You may distribute under the terms of either the GNU General Public
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/t/business-isbn-png-barcode.t
new/GD-Barcode-2.01/t/business-isbn-png-barcode.t
--- old/GD-Barcode-2.00/t/business-isbn-png-barcode.t 2023-09-13
22:53:13.000000000 +0200
+++ new/GD-Barcode-2.01/t/business-isbn-png-barcode.t 2025-07-24
16:35:19.000000000 +0200
@@ -1,5 +1,6 @@
use Test2::V0;
use Test2::Require::Module 'Business::ISBN' => '3.007';
+use Test2::Require::Module 'GD';
# this test is adapted from the one in the Business::ISBN testsuite
use GD::Barcode::EAN13;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/t/ean13.t
new/GD-Barcode-2.01/t/ean13.t
--- old/GD-Barcode-2.00/t/ean13.t 2023-09-13 22:53:13.000000000 +0200
+++ new/GD-Barcode-2.01/t/ean13.t 2024-03-17 22:24:11.000000000 +0100
@@ -4,4 +4,8 @@
is(GD::Barcode->new("EAN13", "123456789012")->barcode(),
'G0G0010011011110100111010110001000010100100010G0G0100100011101001110010110011011011001001000G0G',
'EAN13');
-done_testing;
\ No newline at end of file
+my $barcode = GD::Barcode->new("EAN13", "12345678901");
+is($barcode, undef, 'EAN13 Invalid Length');
+is($GD::Barcode::errStr, 'Invalid Length', 'EAN13 Invalid Length');
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/t/plot.t new/GD-Barcode-2.01/t/plot.t
--- old/GD-Barcode-2.00/t/plot.t 1970-01-01 01:00:00.000000000 +0100
+++ new/GD-Barcode-2.01/t/plot.t 2024-03-17 22:26:03.000000000 +0100
@@ -0,0 +1,22 @@
+use Test2::V0;
+
+use GD::Barcode;
+use File::Temp qw(tempfile);
+use File::stat;
+
+use Test2::Require::Module 'GD';
+
+
+my $oGdBar = GD::Barcode->new("EAN13", "123456789012");
+
+my ($fh, $filename) = tempfile();
+binmode $fh;
+print $fh $oGdBar->plot->png;
+close $fh;
+
+my $filesize = stat($filename)->size;
+ok($filesize > 0, 'Generated PNG file is not empty');
+
+unlink $filename or diag "Could not unlink $filename: $!";
+
+done_testing();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/GD-Barcode-2.00/t/qrcode-image.t
new/GD-Barcode-2.01/t/qrcode-image.t
--- old/GD-Barcode-2.00/t/qrcode-image.t 1970-01-01 01:00:00.000000000
+0100
+++ new/GD-Barcode-2.01/t/qrcode-image.t 2024-03-17 22:25:42.000000000
+0100
@@ -0,0 +1,22 @@
+use Test2::V0;
+use Test2::Require::Module 'GD';
+
+use GD::Barcode::QRcode;
+use File::Temp qw(tempfile);
+use File::stat;
+
+my $qrcode =
GD::Barcode::QRcode->new('https://github.com/mbeijen/GD-Barcode/commit/af0ac08c05df03c2088e3f472633d9249c4883ca',
+{ModuleSize => 1});
+ok($qrcode, 'QRcode');
+
+my ($fh, $filename) = tempfile();
+binmode $fh;
+print $fh $qrcode->plot->png;
+close $fh;
+
+my $filesize = stat($filename)->size;
+ok($filesize > 0, 'Generated PNG file is not empty');
+
+unlink $filename or diag "Could not unlink $filename: $!";
+
+done_testing();
++++++ 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: 1756216568
commit: 41224c49f4ee4281fa08522ff462c6b5de3da06faed05c3e8ee5aef953732b73
url: https://src.opensuse.org/perl/perl-GD-Barcode.git
revision: 41224c49f4ee4281fa08522ff462c6b5de3da06faed05c3e8ee5aef953732b73
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 2025-09-01 10:36:02.000000000 +0200
@@ -0,0 +1 @@
+.osc
