summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
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;