From 554e4bb8b6b2145e578e5efb176402264d3f9a91 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 16 Jun 2010 23:27:06 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLTREE.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLTREE.pm') 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; -- cgit v1.2.3