This is an automated email from the git hooks/post-receive script. kanashiro-guest pushed a commit to branch master in repository carton.
commit d6345186a51f8d91eb4425c777b0596e61e9cb4b Author: Tatsuhiko Miyagawa <miyag...@bulknews.net> Date: Tue Jun 4 00:07:24 2013 +0900 Skip modules that are referenced early in the tree to avoid duplicates. --- lib/Carton/CLI.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/Carton/CLI.pm b/lib/Carton/CLI.pm index 10dfcd9..8831a43 100644 --- a/lib/Carton/CLI.pm +++ b/lib/Carton/CLI.pm @@ -265,14 +265,14 @@ sub cmd_tree { my $prereqs = $cpanfile->prereqs; my $dumper = $self->_make_dumper($lock); - $dumper->(undef, $prereqs, 0); + $dumper->(undef, $prereqs, 0, {}); } sub _make_dumper { my($self, $lock) = @_; my $dumper; $dumper = sub { - my($name, $prereqs, $level) = @_; + my($name, $prereqs, $level, $seen) = @_; my $req = CPAN::Meta::Requirements->new; $req->add_requirements($prereqs->requirements_for($_, 'requires')) @@ -285,7 +285,8 @@ sub _make_dumper { my $requirements = $req->as_string_hash; while (my($module, $version) = each %$requirements) { if (my $dependency = $lock->find($module)) { - $dumper->($dependency->dist, $dependency->prereqs, $level + 1); + next if $seen->{$dependency->dist}++; + $dumper->($dependency->dist, $dependency->prereqs, $level + 1, $seen); } else { # TODO: probably core, what if otherwise? } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits