Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Data-Compare for openSUSE:Factory checked in at 2023-03-17 17:00:56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Data-Compare (Old) and /work/SRC/openSUSE:Factory/.perl-Data-Compare.new.31432 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Compare" Fri Mar 17 17:00:56 2023 rev:10 rq:1072284 version:1.28 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Data-Compare/perl-Data-Compare.changes 2019-11-23 23:12:46.518745541 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Data-Compare.new.31432/perl-Data-Compare.changes 2023-03-17 17:00:57.812643353 +0100 @@ -1,0 +2,12 @@ +Wed Mar 15 03:06:49 UTC 2023 - Tina Müller <[email protected]> + +- updated to 1.28 + see /usr/share/doc/packages/perl-Data-Compare/CHANGELOG + + 1.28 2023-03-14 + + - Bug fix: DCANTRELL: undef values in hashes were treated incorrectly, + need to check for existence, not definedness before comparing. See + https://github.com/DrHyde/perl-modules-Data-Compare/issues/21 + +------------------------------------------------------------------- Old: ---- Data-Compare-1.27.tar.gz New: ---- Data-Compare-1.28.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Data-Compare.spec ++++++ --- /var/tmp/diff_new_pack.JOF7dj/_old 2023-03-17 17:00:58.388646371 +0100 +++ /var/tmp/diff_new_pack.JOF7dj/_new 2023-03-17 17:00:58.392646391 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Data-Compare # -# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2023 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,22 +16,21 @@ # +%define cpan_name Data-Compare Name: perl-Data-Compare -Version: 1.27 +Version: 1.28 Release: 0 -#Upstream: SUSE-Public-Domain -%define cpan_name Data-Compare -Summary: Compare perl data structures +#Upstream: Artistic-1.0 or GPL-1.0-or-later License: Artistic-1.0 OR GPL-1.0-or-later -Group: Development/Libraries/Perl -Url: https://metacpan.org/release/%{cpan_name} +Summary: Compare perl data structures +URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/D/DC/DCANTRELL/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch -BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Clone) >= 0.43 +BuildRequires: perl(ExtUtils::MakeMaker) >= 6.48 BuildRequires: perl(File::Find::Rule) >= 0.1 BuildRequires: perl(Test::More) >= 0.88 Requires: perl(Clone) >= 0.43 @@ -84,12 +83,13 @@ this list will be ignored. %prep -%setup -q -n %{cpan_name}-%{version} -find . -type f ! -path "*/t/*" ! -name "*.pl" ! -name "*.sh" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644 +%autosetup -n %{cpan_name}-%{version} + +find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644 %build perl Makefile.PL INSTALLDIRS=vendor -make %{?_smp_mflags} +%make_build %check make test @@ -100,8 +100,7 @@ %perl_gen_filelist %files -f %{name}.files -%defattr(-,root,root,755) -%doc CHANGELOG GPL2.txt MAINTAINERS-NOTE NOTES README -%license ARTISTIC.txt +%doc CHANGELOG MAINTAINERS-NOTE NOTES README +%license ARTISTIC.txt GPL2.txt %changelog ++++++ Data-Compare-1.27.tar.gz -> Data-Compare-1.28.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Compare-1.27/CHANGELOG new/Data-Compare-1.28/CHANGELOG --- old/Data-Compare-1.27/CHANGELOG 2019-11-05 17:35:21.000000000 +0100 +++ new/Data-Compare-1.28/CHANGELOG 2023-03-14 01:40:24.000000000 +0100 @@ -1,6 +1,12 @@ +1.28 2023-03-14 + +- Bug fix: DCANTRELL: undef values in hashes were treated incorrectly, + need to check for existence, not definedness before comparing. See + https://github.com/DrHyde/perl-modules-Data-Compare/issues/21 + 1.27 2019-11-05 DCANTRELL Fix bug when options are passed as a persistent - hash from calling code and not an anonyhash - (Sam Kington) + hash from calling code and not an anonyhash + (Sam Kington) 1.26 2019-09-18 DCANTRELL Minor code quality improvements from Alberto Simõe; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Compare-1.27/MANIFEST new/Data-Compare-1.28/MANIFEST --- old/Data-Compare-1.27/MANIFEST 2019-11-05 17:43:46.000000000 +0100 +++ new/Data-Compare-1.28/MANIFEST 2023-03-15 00:35:20.000000000 +0100 @@ -31,5 +31,6 @@ t/overload.t t/lib/SpecialClass.pm t/persistent-args-hash.t +t/bug-undefs-in-hashes.t META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Compare-1.27/META.json new/Data-Compare-1.28/META.json --- old/Data-Compare-1.27/META.json 2019-11-05 17:43:46.000000000 +0100 +++ new/Data-Compare-1.28/META.json 2023-03-15 00:35:19.000000000 +0100 @@ -4,14 +4,15 @@ "unknown" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.0402, CPAN::Meta::Converter version 2.150001", + "generated_by" : "ExtUtils::MakeMaker version 7.66, CPAN::Meta::Converter version 2.150010", "license" : [ + "unknown", "artistic_1", "gpl_2" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, - "version" : "2" + "version" : 2 }, "name" : "Data-Compare", "no_index" : { @@ -50,5 +51,6 @@ "url" : "https://github.com/DrHyde/perl-modules-Data-Compare"; } }, - "version" : 1.27 + "version" : 1.28, + "x_serialization_backend" : "JSON::PP version 4.02" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Compare-1.27/META.yml new/Data-Compare-1.28/META.yml --- old/Data-Compare-1.27/META.yml 2019-11-05 17:43:45.000000000 +0100 +++ new/Data-Compare-1.28/META.yml 2023-03-15 00:35:19.000000000 +0100 @@ -7,8 +7,8 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.0402, CPAN::Meta::Converter version 2.150001' -license: open_source +generated_by: 'ExtUtils::MakeMaker version 7.66, CPAN::Meta::Converter version 2.150010' +license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' @@ -26,4 +26,5 @@ resources: bugtracker: https://github.com/DrHyde/perl-modules-Data-Compare/issues repository: https://github.com/DrHyde/perl-modules-Data-Compare -version: 1.27 +version: 1.28 +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Compare-1.27/lib/Data/Compare.pm new/Data-Compare-1.28/lib/Data/Compare.pm --- old/Data-Compare-1.27/lib/Data/Compare.pm 2019-11-05 17:35:29.000000000 +0100 +++ new/Data-Compare-1.28/lib/Data/Compare.pm 2023-03-14 01:40:41.000000000 +0100 @@ -1,8 +1,6 @@ # Data::Compare - compare perl data structures # Author: Fabien Tassin <[email protected]> # updated by David Cantrell <[email protected]> -# Copyright 1999-2001 Fabien Tassin <[email protected]> -# portions Copyright 2003 - 2013 David Cantrell package Data::Compare; @@ -18,7 +16,7 @@ @ISA = qw(Exporter); @EXPORT = qw(Compare); -$VERSION = 1.27; +$VERSION = 1.28; $DEBUG = $ENV{PERL_DATA_COMPARE_DEBUG} || 0; my %handler; @@ -121,7 +119,7 @@ $opts->{recursion_detector}++; warn "Yaroo! deep recursion!\n" if($opts->{recursion_detector} == 99); - + if( (ref($x) && exists($been_there{"$x-$xpos-$xparent"}) && $been_there{"$x-$xpos-$xparent"} > 1) || (ref($y) && exists($been_there{"$y-$ypos-$yparent"}) && $been_there{"$y-$ypos-$yparent"} > 1) @@ -179,8 +177,11 @@ $rval = 0 unless scalar @kx == scalar @ky; for (@kx) { - next unless defined $x->{$_} || defined $y->{$_}; - $rval = 0 unless defined $y->{$_} && _Compare($x->{$_}, $y->{$_}, { %{$opts}, xparent => $x, xpos => $_, yparent => $y, ypos => $_}); + if(!exists($y->{$_})) { + $rval = 0; + last; + } + $rval = 0 unless _Compare($x->{$_}, $y->{$_}, { %{$opts}, xparent => $x, xpos => $_, yparent => $y, ypos => $_}); } } elsif($refx eq 'Regexp') { @@ -416,7 +417,7 @@ This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. -Some parts copyright 2003 - 2014 David Cantrell. +Some parts copyright 2003 - 2023 David Cantrell. Seeing that Fabien seems to have disappeared, David Cantrell has become a co-maintainer so he can apply needed patches. The licence, of course, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Compare-1.27/t/bug-undefs-in-hashes.t new/Data-Compare-1.28/t/bug-undefs-in-hashes.t --- old/Data-Compare-1.27/t/bug-undefs-in-hashes.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Data-Compare-1.28/t/bug-undefs-in-hashes.t 2023-03-14 01:27:40.000000000 +0100 @@ -0,0 +1,11 @@ +use strict; +use warnings; + +use Test::More; + +use Data::Compare; + +# https://github.com/DrHyde/perl-modules-Data-Compare/issues/21 +is(Compare({a=>{b=>undef}}, {a=>{c=>12}}), 0, "deal correctly with undef values in hashes"); + +done_testing;
