Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Graph for openSUSE:Factory checked in at 2021-10-12 21:49:48 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Graph (Old) and /work/SRC/openSUSE:Factory/.perl-Graph.new.2443 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Graph" Tue Oct 12 21:49:48 2021 rev:28 rq:924837 version:0.9725 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Graph/perl-Graph.changes 2021-09-27 20:09:37.190509131 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Graph.new.2443/perl-Graph.changes 2021-10-12 21:51:11.096029043 +0200 @@ -1,0 +2,9 @@ +Mon Oct 11 03:06:53 UTC 2021 - Tina M??ller <[email protected]> + +- updated to 0.9725 + see /usr/share/doc/packages/perl-Graph/Changes + + 0.9725 2021-10-10 + - fix refvertexed which was stringifying not using ref address - thanks @merkys for report + +------------------------------------------------------------------- Old: ---- Graph-0.9724.tar.gz New: ---- Graph-0.9725.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Graph.spec ++++++ --- /var/tmp/diff_new_pack.Ps184m/_old 2021-10-12 21:51:11.636029817 +0200 +++ /var/tmp/diff_new_pack.Ps184m/_new 2021-10-12 21:51:11.636029817 +0200 @@ -18,7 +18,7 @@ %define cpan_name Graph Name: perl-Graph -Version: 0.9724 +Version: 0.9725 Release: 0 Summary: Graph data structures and algorithms License: Artistic-1.0 OR GPL-1.0-or-later ++++++ Graph-0.9724.tar.gz -> Graph-0.9725.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9724/Changes new/Graph-0.9725/Changes --- old/Graph-0.9724/Changes 2021-09-13 14:55:29.000000000 +0200 +++ new/Graph-0.9725/Changes 2021-10-10 22:03:55.000000000 +0200 @@ -1,3 +1,6 @@ +0.9725 2021-10-10 +- fix refvertexed which was stringifying not using ref address - thanks @merkys for report + 0.9724 2021-09-13 - make deep_copy not interfere with $. - thanks @merkys for report diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9724/META.json new/Graph-0.9725/META.json --- old/Graph-0.9724/META.json 2021-09-13 14:56:12.000000000 +0200 +++ new/Graph-0.9725/META.json 2021-10-10 22:05:26.000000000 +0200 @@ -68,6 +68,6 @@ "web" : "https://github.com/graphviz-perl/Graph"; } }, - "version" : "0.9724", + "version" : "0.9725", "x_serialization_backend" : "JSON::PP version 4.04" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9724/META.yml new/Graph-0.9725/META.yml --- old/Graph-0.9724/META.yml 2021-09-13 14:56:12.000000000 +0200 +++ new/Graph-0.9725/META.yml 2021-10-10 22:05:25.000000000 +0200 @@ -30,5 +30,5 @@ resources: bugtracker: https://github.com/graphviz-perl/Graph/issues repository: git://github.com/graphviz-perl/Graph.git -version: '0.9724' +version: '0.9725' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9724/lib/Graph/AdjacencyMap.pm new/Graph-0.9725/lib/Graph/AdjacencyMap.pm --- old/Graph-0.9724/lib/Graph/AdjacencyMap.pm 2021-09-01 12:25:11.000000000 +0200 +++ new/Graph-0.9725/lib/Graph/AdjacencyMap.pm 2021-10-10 21:59:12.000000000 +0200 @@ -351,7 +351,7 @@ my @ret = map { my @ret2 = map { my $k = $_; - $k = __strval($k, $f) if $a == 1 && ($f & _REF) && ref($k); + $k = __strval($k, $f) if $a == 1 && $is_ref && ref($k); my $l = ($a == 0 && !$is_unord) ? join '|', map join(' ', sort @$_), @$k : $a == 1 ? "$k" : "@$k"; my $id = $pi->{ $l }; defined $id ? $id : @@ -393,8 +393,9 @@ sub __strval { my ($k, $f) = @_; return $k unless ref $k && ($f & _REF); - require overload; - (($f & _STR) xor overload::Method($k, '""')) ? overload::StrVal($k) : $k; + return "$k" if ($f & _STR); + require Scalar::Util; + Scalar::Util::refaddr($k); } sub __arg { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9724/lib/Graph.pm new/Graph-0.9725/lib/Graph.pm --- old/Graph-0.9724/lib/Graph.pm 2021-09-13 14:52:19.000000000 +0200 +++ new/Graph-0.9725/lib/Graph.pm 2021-10-10 22:04:01.000000000 +0200 @@ -14,7 +14,7 @@ use Graph::AdjacencyMap qw(:flags :fields); -our $VERSION = '0.9724'; +our $VERSION = '0.9725'; require 5.006; # Weak references are absolutely required. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9724/t/65_ref.t new/Graph-0.9725/t/65_ref.t --- old/Graph-0.9724/t/65_ref.t 2021-09-01 12:26:06.000000000 +0200 +++ new/Graph-0.9725/t/65_ref.t 2021-10-10 21:17:49.000000000 +0200 @@ -326,4 +326,10 @@ } } +my $g_ref = Graph->new(refvertexed => 1); +$g_ref->add_edge( my $A = {}, {} ); +bless $A; +is $g_ref->neighbours( $_ ), 1, 'each known vertex has 1 neighbour' + for $g_ref->vertices; + done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9724/t/u_cd_rv.t new/Graph-0.9725/t/u_cd_rv.t --- old/Graph-0.9724/t/u_cd_rv.t 2021-01-03 07:28:36.000000000 +0100 +++ new/Graph-0.9725/t/u_cd_rv.t 2021-10-10 22:01:34.000000000 +0200 @@ -23,7 +23,6 @@ my $n1 = new MyNode('name'=>'alpha'); my $n2 = new MyNode('name'=>'beta'); $gnoref->add_edge($n1, $n2); - $gwithref->add_edge($n1, $n2); is_deeply([sort keys %{$gnoref->[2]->[4]}],[sort keys %{$gwithref->[2]->[4]}]);
