From 27723a001f06f8b3268435a57d10043c8db1ed6a Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 11 May 2020 21:11:50 +0000
Subject: (_initialize_lines): try to handle non-arch man under bin/.

git-svn-id: svn://tug.org/texlive/trunk@55106 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLTREE.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Master/tlpkg/TeXLive')

diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 535dd435f5e..7b76f1c29d1 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -199,8 +199,9 @@ sub _initialize_lines {
       next if ($1 eq "D"); # ignore files which are removed
       next if -d $entry && ! -l $entry; # keep symlinks to dirs (bin/*/man),
                                         # ignore normal dirs.
-      # collect architectures, assuming nothing is in bin/ but arch subdirs.
-      if ($entry =~ m,^bin/([^/]*)/,) {
+      # collect architectures; bin/ has arch subdirs plus the plain man
+      # special case.
+      if ($entry =~ m,^bin/([^/]*)/, && $entry ne "bin/man") {
         $archs{$1} = 1;
       }
       $self->{'_allfiles'}{$entry}{'lastchangedrev'} = $lastchanged;
-- 
cgit v1.2.3