check for double included package in tlmgr check depends

git-svn-id: svn://tug.org/texlive/trunk@33506 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 20 insertions, 0 deletions

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;
 }