TLTREE.pm (_initialize_lines): do not ignore symlinks to directories,

i.e., bin/*/man.
texlive-scripts: include bin/*/man; hope it works out.
texlive.infra, tlmgr: doc tweaks.

tl-update-auto: skip texnansi.enc, now part of ly1.
tl-update-{asy,bindir,messages}: doc/url updates.


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

1 files changed, 4 insertions, 4 deletions

diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index efce2cc9fbd..dc8c8d49844 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -60,7 +60,6 @@ sub init_from_statusfile {
 sub init_from_files {
   my $self = shift;
   my $svnroot = $self->{'svnroot'};
-  #my @lines = `find $svnroot ! -wholename '*/.svn*'`;
   my @lines = `find $svnroot`;
   my $retval = $?;
   if ($retval != 0) {
@@ -82,13 +81,14 @@ sub _initialize_lines {
   chdir($self->svnroot) || die "chdir($self->{svnroot}) failed: $!";
   foreach my $l (@lines) {
     chomp($l);
-    next if ($l =~ /^\?/);    # ignore files not under version control
-    if ($l =~ /^(.)(.)(.)(.)(.)(.)..\s*(\d+)\s+([\d\?]+)\s+([\w\?]+)\s+(.+)$/) {
+    next if $l =~ /^\?/;    # ignore files not under version control
+    if ($l =~ /^(.)(.)(.)(.)(.)(.)..\s*(\d+)\s+([\d\?]+)\s+([\w\?]+)\s+(.+)$/){
       $self->{'revision'} = $7 unless defined($self->{'revision'});
       my $lastchanged = ($8 eq "?" ? 1 : $8);
       my $entry = "$10";
       next if ($1 eq "D"); # ignore files which are removed
-      next if -d $entry;  # TODO: what to do with links???
+      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/([^/]*)/,) {
         $archs{$1} = 1;