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 2023-02-14 16:47:19 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Graph (Old) and /work/SRC/openSUSE:Factory/.perl-Graph.new.27156 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Graph" Tue Feb 14 16:47:19 2023 rev:29 rq:1065570 version:0.9726 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Graph/perl-Graph.changes 2021-10-12 21:51:11.096029043 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Graph.new.27156/perl-Graph.changes 2023-02-14 16:47:58.763348507 +0100 @@ -1,0 +2,9 @@ +Sun Feb 12 03:06:44 UTC 2023 - Tina Müller <timueller+p...@suse.de> + +- updated to 0.9726 + see /usr/share/doc/packages/perl-Graph/Changes + + 0.9726 2023-02-11 + - fix subgraph of undirected (#28) - thanks @merkys for report + +------------------------------------------------------------------- Old: ---- Graph-0.9725.tar.gz New: ---- Graph-0.9726.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Graph.spec ++++++ --- /var/tmp/diff_new_pack.LyV8L9/_old 2023-02-14 16:47:59.219351200 +0100 +++ /var/tmp/diff_new_pack.LyV8L9/_new 2023-02-14 16:47:59.219351200 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Graph # -# Copyright (c) 2021 SUSE LLC +# 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 @@ -18,10 +18,10 @@ %define cpan_name Graph Name: perl-Graph -Version: 0.9725 +Version: 0.9726 Release: 0 -Summary: Graph data structures and algorithms License: Artistic-1.0 OR GPL-1.0-or-later +Summary: Graph data structures and algorithms URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/E/ET/ETJ/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml @@ -42,6 +42,7 @@ %prep %autosetup -n %{cpan_name}-%{version} + find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644 %build ++++++ Graph-0.9725.tar.gz -> Graph-0.9726.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9725/Changes new/Graph-0.9726/Changes --- old/Graph-0.9725/Changes 2021-10-10 22:03:55.000000000 +0200 +++ new/Graph-0.9726/Changes 2023-02-11 21:11:14.000000000 +0100 @@ -1,3 +1,6 @@ +0.9726 2023-02-11 +- fix subgraph of undirected (#28) - thanks @merkys for report + 0.9725 2021-10-10 - fix refvertexed which was stringifying not using ref address - thanks @merkys for report diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9725/META.json new/Graph-0.9726/META.json --- old/Graph-0.9725/META.json 2021-10-10 22:05:26.000000000 +0200 +++ new/Graph-0.9726/META.json 2023-02-11 21:13:36.000000000 +0100 @@ -68,6 +68,6 @@ "web" : "https://github.com/graphviz-perl/Graph"; } }, - "version" : "0.9725", + "version" : "0.9726", "x_serialization_backend" : "JSON::PP version 4.04" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9725/META.yml new/Graph-0.9726/META.yml --- old/Graph-0.9725/META.yml 2021-10-10 22:05:25.000000000 +0200 +++ new/Graph-0.9726/META.yml 2023-02-11 21:13:36.000000000 +0100 @@ -30,5 +30,5 @@ resources: bugtracker: https://github.com/graphviz-perl/Graph/issues repository: git://github.com/graphviz-perl/Graph.git -version: '0.9725' +version: '0.9726' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9725/lib/Graph.pm new/Graph-0.9726/lib/Graph.pm --- old/Graph-0.9725/lib/Graph.pm 2021-10-10 22:04:01.000000000 +0200 +++ new/Graph-0.9726/lib/Graph.pm 2023-02-11 21:10:39.000000000 +0100 @@ -14,7 +14,7 @@ use Graph::AdjacencyMap qw(:flags :fields); -our $VERSION = '0.9725'; +our $VERSION = '0.9726'; require 5.006; # Weak references are absolutely required. @@ -1225,7 +1225,16 @@ my $v = Set::Object->new($dst ? grep $g->has_vertex($_), @$dst : @u); $s->add_vertices(@u, $dst ? $v->members : ()); my $directed = &is_directed; - $s->add_edges(grep $v->contains($directed ? $_->[1] : @$_), $g->edges_from(@u)); + if ($directed) { + $s->add_edges(grep $v->contains($_->[1]), $g->edges_from(@u)); + } else { + my $valid = $dst ? $v + Set::Object->new(@u) : $v; + $s->add_edges( + grep +($v->contains($_->[0]) || $v->contains($_->[1])) && + ($valid->contains($_->[0]) && $valid->contains($_->[1])), + $g->edges_from(@u) + ); + } return $s; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Graph-0.9725/t/85_subgraph.t new/Graph-0.9726/t/85_subgraph.t --- old/Graph-0.9725/t/85_subgraph.t 2021-08-02 22:30:35.000000000 +0200 +++ new/Graph-0.9726/t/85_subgraph.t 2023-02-11 20:29:25.000000000 +0100 @@ -30,6 +30,10 @@ my $g1 = Graph::Undirected->new; $g1->add_edges(@E); +is $g1->subgraph([qw(a b c)], [qw(d e f)]), "b=d,b=e,c=f,a"; +is $g1->subgraph([qw(a b c)]), "a=b,a=c"; +is $g1->subgraph(['a'],['e']), "a,e"; + is($g1->subgraph_by_radius('a', 0)->stringify, "a"); is($g1->subgraph_by_radius('a', 1)->stringify, "a=b,a=c"); is($g1->subgraph_by_radius('a', 2)->stringify, "a=b,a=c,b=d,b=e,c=f,c=g");
