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-07-12 21:39:55 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Graph (Old) and /work/SRC/openSUSE:Factory/.perl-Graph.new.2625 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Graph" Mon Jul 12 21:39:55 2021 rev:25 rq:904161 version:0.9722 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Graph/perl-Graph.changes 2021-04-22 18:06:25.710740749 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Graph.new.2625/perl-Graph.changes 2021-07-12 21:40:00.888213780 +0200 @@ -1,0 +2,9 @@ +Mon Jul 5 03:07:27 UTC 2021 - Tina M??ller <[email protected]> + +- updated to 0.9722 + see /usr/share/doc/packages/perl-Graph/Changes + + 0.9722 2021-07-04 + - fix neighbours et al not returning count in scalar context - thanks @merkys for report + +------------------------------------------------------------------- Old: ---- Graph-0.9721.tar.gz New: ---- Graph-0.9722.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Graph.spec ++++++ --- /var/tmp/diff_new_pack.NSBD5P/_old 2021-07-12 21:40:02.220203282 +0200 +++ /var/tmp/diff_new_pack.NSBD5P/_new 2021-07-12 21:40:02.224203250 +0200 @@ -18,7 +18,7 @@ %define cpan_name Graph Name: perl-Graph -Version: 0.9721 +Version: 0.9722 Release: 0 Summary: Graph data structures and algorithms License: Artistic-1.0 OR GPL-1.0-or-later ++++++ Graph-0.9721.tar.gz -> Graph-0.9722.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9721/Changes new/Graph-0.9722/Changes --- old/Graph-0.9721/Changes 2021-04-18 14:30:24.000000000 +0200 +++ new/Graph-0.9722/Changes 2021-07-04 13:28:14.000000000 +0200 @@ -1,3 +1,6 @@ +0.9722 2021-07-04 +- fix neighbours et al not returning count in scalar context - thanks @merkys for report + 0.9721 2021-04-18 - fix BitMatrix and AdjacencyMatrix problems - thanks @dod38fr for report diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9721/META.json new/Graph-0.9722/META.json --- old/Graph-0.9721/META.json 2021-04-18 14:31:32.000000000 +0200 +++ new/Graph-0.9722/META.json 2021-07-04 13:32:12.000000000 +0200 @@ -68,6 +68,6 @@ "web" : "https://github.com/graphviz-perl/Graph"; } }, - "version" : "0.9721", + "version" : "0.9722", "x_serialization_backend" : "JSON::PP version 4.04" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9721/META.yml new/Graph-0.9722/META.yml --- old/Graph-0.9721/META.yml 2021-04-18 14:31:32.000000000 +0200 +++ new/Graph-0.9722/META.yml 2021-07-04 13:32:12.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.9721' +version: '0.9722' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9721/lib/Graph.pm new/Graph-0.9722/lib/Graph.pm --- old/Graph-0.9721/lib/Graph.pm 2021-04-18 14:30:36.000000000 +0200 +++ new/Graph-0.9722/lib/Graph.pm 2021-07-04 13:28:30.000000000 +0200 @@ -14,7 +14,7 @@ use Graph::AdjacencyMap qw(:flags :fields); -our $VERSION = '0.9721'; +our $VERSION = '0.9722'; require 5.006; # Weak references are absolutely required. @@ -549,7 +549,7 @@ $found->clear; } $got->remove($init->difference($self)->members) if $self_only_if_loop; - $got->members; + $got->${ wantarray ? \'members' : \'size' }; } sub all_successors { @@ -586,7 +586,7 @@ require Set::Object; my $s = Set::Object->new(&successors); $s->insert(&predecessors) if &is_directed; - $s->members; + $s->${ wantarray ? \'members' : \'size' }; } *neighbors = \&neighbours; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9721/t/56_neighbourhood.t new/Graph-0.9722/t/56_neighbourhood.t --- old/Graph-0.9721/t/56_neighbourhood.t 2021-01-06 00:22:03.000000000 +0100 +++ new/Graph-0.9722/t/56_neighbourhood.t 2021-07-04 13:23:52.000000000 +0200 @@ -78,6 +78,9 @@ for my $m (sort keys %methods) { for my $t ( @{ $methods{$m} } ) { my ($args, $expected0, $expected1) = @$t; + my $got0_count = scalar $g0->$m(@$args); + my $expected0_count = scalar split ' ', $expected0; + is $got0_count+0, $expected0_count, "right number for scalar context $m"; is( "@{[sort $g0->$m(@$args)]}", $expected0, "directed $m (@$args)" ); is( "@{[sort $g1->$m(@$args)]}", $expected1, "undirected $m (@$args)" ); }
