summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-06-16 23:27:06 +0000
committerKarl Berry <karl@freefriends.org>2010-06-16 23:27:06 +0000
commit554e4bb8b6b2145e578e5efb176402264d3f9a91 (patch)
tree90b2ada21b830f512d1b40d9543f1b5abe252793 /Master/tlpkg/TeXLive/TLTREE.pm
parentdad6f4a61338472a2ac8f18cfaac210e5d6f3039 (diff)
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
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm8
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;