texlive[55106] Master/tlpkg/TeXLive/TLTREE.pm: (_initialize_lines):

[commits+karl at tug.org]

Revision: 55106
          http://tug.org/svn/texlive?view=revision&revision=55106
Author:   karl
Date:     2020-05-11 23:11:50 +0200 (Mon, 11 May 2020)
Log Message:
-----------
(_initialize_lines): try to handle non-arch man under bin/.

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLTREE.pm

Modified: trunk/Master/tlpkg/TeXLive/TLTREE.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLTREE.pm	2020-05-11 20:54:38 UTC (rev 55105)
+++ trunk/Master/tlpkg/TeXLive/TLTREE.pm	2020-05-11 21:11:50 UTC (rev 55106)
@@ -199,8 +199,9 @@
       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;