From 884c1c0df9b9f3c05b888e4ea1dcb4e292d8a627 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 18 Apr 2014 00:20:16 +0000 Subject: check for double included package in tlmgr check depends git-svn-id: svn://tug.org/texlive/trunk@33506 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'Master') diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 1ec60e73515..8ed0132789e 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -5066,6 +5066,21 @@ sub check_depends { } } + # check whether packages are included more than one time in a collection + my %pkg2mother; + for my $c (@colls) { + for my $p ($localtlpdb->get_package($c)->depends) { + next if ($p =~ /^collection-/); + push @{$pkg2mother{$p}}, $c; + } + } + my @double_inc_pkgs; + for my $k (keys %pkg2mother) { + if (@{$pkg2mother{$k}} > 1) { + push @double_inc_pkgs, $k; + } + } + if (keys %wrong_dep) { $ret++; print "\f DEPENDS WITHOUT PACKAGES:\n"; @@ -5079,6 +5094,11 @@ sub check_depends { print "\f PACKAGES NOT IN ANY COLLECTION: @no_dep\n"; } + if (@double_inc_pkgs) { + $ret++; + print "\f PACKAGES INLCUDED IN MORE THAN ONE COLLECTION: @double_inc_pkgs\n"; + } + return $ret; } -- cgit v1.2.3