Hello community,
here is the log from the commit of package perl-Hash-Merge for openSUSE:Factory
checked in at 2020-08-06 10:39:56
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Hash-Merge (Old)
and /work/SRC/openSUSE:Factory/.perl-Hash-Merge.new.3399 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Hash-Merge"
Thu Aug 6 10:39:56 2020 rev:8 rq:824541 version:0.302
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Hash-Merge/perl-Hash-Merge.changes
2018-10-12 13:10:52.807283876 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Hash-Merge.new.3399/perl-Hash-Merge.changes
2020-08-06 10:40:45.234078980 +0200
@@ -1,0 +2,17 @@
+Wed Aug 5 10:47:58 UTC 2020 - Tina Müller <[email protected]>
+
+- Limit description to two paragraphs
+
+-------------------------------------------------------------------
+Sat Aug 1 03:14:47 UTC 2020 - Tina Müller <[email protected]>
+
+- updated to 0.302
+ see /usr/share/doc/packages/perl-Hash-Merge/Changes
+
+ 0.302 2020-07-30
+ - Prevent object-based test from failing randomly on BSDs and MacOS
+
+ 0.301 2020-06-18
+ - fix object-based interface memory leak (RT#132627) (Thanks to mithaldu)
+
+-------------------------------------------------------------------
Old:
----
Hash-Merge-0.300.tar.gz
New:
----
Hash-Merge-0.302.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Hash-Merge.spec ++++++
--- /var/tmp/diff_new_pack.bLXFe5/_old 2020-08-06 10:40:48.130080430 +0200
+++ /var/tmp/diff_new_pack.bLXFe5/_new 2020-08-06 10:40:48.134080432 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Hash-Merge
#
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 SUSE LLC
#
# 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-Hash-Merge
-Version: 0.300
+Version: 0.302
Release: 0
%define cpan_name Hash-Merge
Summary: Merges arbitrarily deep hashes into a single hash
License: Artistic-1.0 OR GPL-1.0-or-later
Group: Development/Libraries/Perl
-Url: https://metacpan.org/release/%{cpan_name}
-Source0:
https://cpan.metacpan.org/authors/id/R/RE/REHSACK/%{cpan_name}-%{version}.tar.gz
+URL: https://metacpan.org/release/%{cpan_name}
+Source0:
https://cpan.metacpan.org/authors/id/H/HE/HERMES/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
@@ -50,20 +50,16 @@
however, if necessary, this behavior can be changed to use as many of the
original values as possible. (See 'set_clone_behavior').
-Because there are a number of possible ways that one may want to merge
-values when keys are conflicting, Hash::Merge provides several preset
-methods for your convenience, as well as a way to define you own.
-
%prep
%setup -q -n %{cpan_name}-%{version}
-find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
+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}
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
%check
-%{__make} test
+make test
%install
%perl_make_install
++++++ Hash-Merge-0.300.tar.gz -> Hash-Merge-0.302.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/Changes new/Hash-Merge-0.302/Changes
--- old/Hash-Merge-0.300/Changes 2018-03-09 16:45:44.000000000 +0100
+++ new/Hash-Merge-0.302/Changes 2020-07-30 19:03:42.000000000 +0200
@@ -1,5 +1,11 @@
Revision history for Perl extension Hash::Merge.
+0.302 2020-07-30
+ - Prevent object-based test from failing randomly on BSDs and MacOS
+
+0.301 2020-06-18
+ - fix object-based interface memory leak (RT#132627) (Thanks to mithaldu)
+
0.300 2018-03-09
- fix old EU::MM support (RT#123915)
- rename specify_behavior and improve SYNOPSIS (RT#123785)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/MANIFEST
new/Hash-Merge-0.302/MANIFEST
--- old/Hash-Merge-0.300/MANIFEST 2018-03-09 17:03:02.000000000 +0100
+++ new/Hash-Merge-0.302/MANIFEST 2020-07-30 19:10:13.000000000 +0200
@@ -2,7 +2,7 @@
lib/Hash/Merge.pm
MAINTAINER.md
Makefile.PL
-MANIFEST
+MANIFEST This list of files
MANIFEST.SKIP
README.md
t/Auto/00-load.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/MANIFEST.SKIP
new/Hash-Merge-0.302/MANIFEST.SKIP
--- old/Hash-Merge-0.300/MANIFEST.SKIP 2018-03-09 16:19:42.000000000 +0100
+++ new/Hash-Merge-0.302/MANIFEST.SKIP 2020-07-08 18:28:58.000000000 +0200
@@ -26,9 +26,10 @@
^_build/.*
~$
.*\.planner
-^\..*
+\.perltidyrc
+\.travis.yml
Hash-Merge-.*
\bxt
Sandbox
-^MYMETA\.json$
-^MYMETA\..*$
+MYMETA\.json\.lock
+^MYMETA\.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/META.json
new/Hash-Merge-0.302/META.json
--- old/Hash-Merge-0.300/META.json 2018-03-09 17:03:02.000000000 +0100
+++ new/Hash-Merge-0.302/META.json 2020-07-30 19:10:13.000000000 +0200
@@ -7,7 +7,7 @@
"Stefan Hermes <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.3, CPAN::Meta::Converter
version 2.150010",
+ "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter
version 2.150010",
"license" : [
"perl_5"
],
@@ -80,6 +80,6 @@
"web" : "https://github.com/perl5-utils/Hash-Merge";
}
},
- "version" : "0.300",
- "x_serialization_backend" : "JSON::PP version 2.97000"
+ "version" : "0.302",
+ "x_serialization_backend" : "JSON::PP version 4.02"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/META.yml
new/Hash-Merge-0.302/META.yml
--- old/Hash-Merge-0.300/META.yml 2018-03-09 17:03:01.000000000 +0100
+++ new/Hash-Merge-0.302/META.yml 2020-07-30 19:10:12.000000000 +0200
@@ -10,7 +10,7 @@
configure_requires:
ExtUtils::MakeMaker: '6.64'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.3, CPAN::Meta::Converter version
2.150010'
+generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -29,5 +29,5 @@
homepage: https://metacpan.org/release/Hash-Merge
license: http://dev.perl.org/licenses/
repository: https://github.com/perl5-utils/Hash-Merge.git
-version: '0.300'
+version: '0.302'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/README.md
new/Hash-Merge-0.302/README.md
--- old/Hash-Merge-0.300/README.md 2017-11-16 21:53:48.000000000 +0100
+++ new/Hash-Merge-0.302/README.md 2020-07-08 18:28:58.000000000 +0200
@@ -209,8 +209,8 @@
# COPYRIGHT
Copyright (c) 2001,2002 Michael K. Neylon. All rights reserved.
-Copyright (c) 2013-2017 Jens Rehsack. All rights reserved.
-Copyright (c) 2017 Stefan Hermes. All rights reserved.
+Copyright (c) 2013-2020 Jens Rehsack. All rights reserved.
+Copyright (c) 2017-2020 Stefan Hermes. All rights reserved.
This library is free software. You can redistribute it and/or modify it
under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/lib/Hash/Merge.pm
new/Hash-Merge-0.302/lib/Hash/Merge.pm
--- old/Hash-Merge-0.300/lib/Hash/Merge.pm 2018-03-09 16:47:20.000000000
+0100
+++ new/Hash-Merge-0.302/lib/Hash/Merge.pm 2020-07-30 19:01:01.000000000
+0200
@@ -5,12 +5,12 @@
use Carp;
use Clone::Choose 0.008;
-use Scalar::Util qw(blessed);
+use Scalar::Util qw(blessed weaken);
use base 'Exporter';
our $CONTEXT;
-our $VERSION = '0.300';
+our $VERSION = '0.302';
our @EXPORT_OK = qw( merge _hashify _merge_hashes );
our %EXPORT_TAGS = ('custom' => [qw( _hashify _merge_hashes )]);
@@ -18,6 +18,9 @@
{
my $self = shift;
+ my $weak = $self;
+ weaken $weak;
+
defined $self->{behaviors}
or $self->{behaviors} = {
'LEFT_PRECEDENT' => {
@@ -34,7 +37,7 @@
'HASH' => {
'SCALAR' => sub { $_[0] },
'ARRAY' => sub { $_[0] },
- 'HASH' => sub { $self->_merge_hashes($_[0], $_[1]) },
+ 'HASH' => sub { $weak->_merge_hashes($_[0], $_[1]) },
},
},
@@ -52,7 +55,7 @@
'HASH' => {
'SCALAR' => sub { $_[1] },
'ARRAY' => sub { [values %{$_[0]}, @{$_[1]}] },
- 'HASH' => sub { $self->_merge_hashes($_[0], $_[1]) },
+ 'HASH' => sub { $weak->_merge_hashes($_[0], $_[1]) },
},
},
@@ -70,25 +73,25 @@
'HASH' => {
'SCALAR' => sub { $_[0] },
'ARRAY' => sub { $_[0] },
- 'HASH' => sub { $self->_merge_hashes($_[0], $_[1]) },
+ 'HASH' => sub { $weak->_merge_hashes($_[0], $_[1]) },
},
},
'RETAINMENT_PRECEDENT' => {
'SCALAR' => {
- 'SCALAR' => sub { [$_[0],
$_[1]] },
- 'ARRAY' => sub { [$_[0],
@{$_[1]}] },
- 'HASH' => sub { $self->_merge_hashes($self->_hashify($_[0]),
$_[1]) },
+ 'SCALAR' => sub { [$_[0], $_[1]] },
+ 'ARRAY' => sub { [$_[0], @{$_[1]}] },
+ 'HASH' => sub { $weak->_merge_hashes($weak->_hashify($_[0]),
$_[1]) },
},
'ARRAY' => {
- 'SCALAR' => sub { [@{$_[0]},
$_[1]] },
- 'ARRAY' => sub { [@{$_[0]},
@{$_[1]}] },
- 'HASH' => sub { $self->_merge_hashes($self->_hashify($_[0]),
$_[1]) },
+ 'SCALAR' => sub { [@{$_[0]}, $_[1]] },
+ 'ARRAY' => sub { [@{$_[0]}, @{$_[1]}] },
+ 'HASH' => sub { $weak->_merge_hashes($weak->_hashify($_[0]),
$_[1]) },
},
'HASH' => {
- 'SCALAR' => sub { $self->_merge_hashes($_[0],
$self->_hashify($_[1])) },
- 'ARRAY' => sub { $self->_merge_hashes($_[0],
$self->_hashify($_[1])) },
- 'HASH' => sub { $self->_merge_hashes($_[0], $_[1]) },
+ 'SCALAR' => sub { $weak->_merge_hashes($_[0],
$weak->_hashify($_[1])) },
+ 'ARRAY' => sub { $weak->_merge_hashes($_[0],
$weak->_hashify($_[1])) },
+ 'HASH' => sub { $weak->_merge_hashes($_[0], $_[1]) },
},
},
};
@@ -118,7 +121,7 @@
my $self = &_get_obj; # '&' + no args modifies current @_
my $value = shift;
- my @behaviors = grep { /$value/i } keys %{$self->{'behaviors'}};
+ my @behaviors = grep { /^$value$/i } keys %{$self->{'behaviors'}};
if (scalar @behaviors == 0)
{
carp 'Behavior must be one of : ' . join(', ', keys
%{$self->{'behaviors'}});
@@ -563,8 +566,8 @@
=head1 COPYRIGHT
Copyright (c) 2001,2002 Michael K. Neylon. All rights reserved.
-Copyright (c) 2013-2017 Jens Rehsack. All rights reserved.
-Copyright (c) 2017 Stefan Hermes. All rights reserved.
+Copyright (c) 2013-2020 Jens Rehsack. All rights reserved.
+Copyright (c) 2017-2020 Stefan Hermes. All rights reserved.
This library is free software. You can redistribute it and/or modify it
under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/t/Auto/02-oo.t
new/Hash-Merge-0.302/t/Auto/02-oo.t
--- old/Hash-Merge-0.300/t/Auto/02-oo.t 2018-03-09 16:58:16.000000000 +0100
+++ new/Hash-Merge-0.302/t/Auto/02-oo.t 2020-07-30 19:09:59.000000000 +0200
@@ -349,6 +349,16 @@
main::ok($merged);
}
+{
+ my $destroyed = 0;
+ no warnings 'once';
+ local *Hash::Merge::DESTROY = sub { $destroyed = 1; };
+ use warnings;
+ Hash::Merge->new;
+ sleep 1;
+ ok $destroyed, "instance did not leak";
+}
+
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/t/Clone/02-oo.t
new/Hash-Merge-0.302/t/Clone/02-oo.t
--- old/Hash-Merge-0.300/t/Clone/02-oo.t 2018-03-09 16:58:16.000000000
+0100
+++ new/Hash-Merge-0.302/t/Clone/02-oo.t 2020-07-30 19:09:59.000000000
+0200
@@ -351,6 +351,16 @@
main::ok($merged);
}
+{
+ my $destroyed = 0;
+ no warnings 'once';
+ local *Hash::Merge::DESTROY = sub { $destroyed = 1; };
+ use warnings;
+ Hash::Merge->new;
+ sleep 1;
+ ok $destroyed, "instance did not leak";
+}
+
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/t/ClonePP/02-oo.t
new/Hash-Merge-0.302/t/ClonePP/02-oo.t
--- old/Hash-Merge-0.300/t/ClonePP/02-oo.t 2018-03-09 16:58:16.000000000
+0100
+++ new/Hash-Merge-0.302/t/ClonePP/02-oo.t 2020-07-30 19:09:59.000000000
+0200
@@ -351,6 +351,16 @@
main::ok($merged);
}
+{
+ my $destroyed = 0;
+ no warnings 'once';
+ local *Hash::Merge::DESTROY = sub { $destroyed = 1; };
+ use warnings;
+ Hash::Merge->new;
+ sleep 1;
+ ok $destroyed, "instance did not leak";
+}
+
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/t/Storable/02-oo.t
new/Hash-Merge-0.302/t/Storable/02-oo.t
--- old/Hash-Merge-0.300/t/Storable/02-oo.t 2018-03-09 16:58:16.000000000
+0100
+++ new/Hash-Merge-0.302/t/Storable/02-oo.t 2020-07-30 19:09:59.000000000
+0200
@@ -351,6 +351,16 @@
main::ok($merged);
}
+{
+ my $destroyed = 0;
+ no warnings 'once';
+ local *Hash::Merge::DESTROY = sub { $destroyed = 1; };
+ use warnings;
+ Hash::Merge->new;
+ sleep 1;
+ ok $destroyed, "instance did not leak";
+}
+
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Hash-Merge-0.300/t/inline/02-oo.t
new/Hash-Merge-0.302/t/inline/02-oo.t
--- old/Hash-Merge-0.300/t/inline/02-oo.t 2018-03-09 14:13:09.000000000
+0100
+++ new/Hash-Merge-0.302/t/inline/02-oo.t 2020-07-30 15:30:48.000000000
+0200
@@ -344,4 +344,14 @@
main::ok($merged);
}
+{
+ my $destroyed = 0;
+ no warnings 'once';
+ local *Hash::Merge::DESTROY = sub { $destroyed = 1; };
+ use warnings;
+ Hash::Merge->new;
+ sleep 1;
+ ok $destroyed, "instance did not leak";
+}
+
done_testing;
++++++ cpanspec.yml ++++++
--- /var/tmp/diff_new_pack.bLXFe5/_old 2020-08-06 10:40:48.230080481 +0200
+++ /var/tmp/diff_new_pack.bLXFe5/_new 2020-08-06 10:40:48.230080481 +0200
@@ -1,5 +1,5 @@
---
-#description_paragraphs: 3
+description_paragraphs: 2
#description: |-
# override description from CPAN
#summary: override summary from CPAN
