summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-07-12 09:38:09 +0000
committerNorbert Preining <preining@logic.at>2007-07-12 09:38:09 +0000
commit2559ab32acfcf160257c8a7c85c968e7dd58b589 (patch)
tree96c6dfb1847833fd69bf0b03305a22f6119e5cc7 /Master/tlpkg/TeXLive/TLTREE.pm
parentfb899d343bd98cff4dfa012ef1e5cb7f851e69f4 (diff)
the road to new texdoc handling:
- allow tags "details" and "language" for docfiles - allow catalogue-* keys in a TLPOBJ file - TLPOBJ.pm: add update_from_catalogue which updates some information - adapt the tlpsrc2tlpdb script to take another argument -catalogue in which case the database is build with catalogue information included git-svn-id: svn://tug.org/texlive/trunk@4568 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 47202a9fcd0..bf007b9cfb2 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -45,11 +45,11 @@ sub init_from_statusfile {
$self->_initialize_lines(@lines);
}
sub init_from_files {
- my $self = shift;
- my $svnroot = $self->{'svnroot'};
- my @lines = `find $svnroot ! -wholename '*/.svn*'`;
- @lines = map { s@^$svnroot@@; s@^/@@; " 1 1 dummy $_" } @lines;
- $self->_initialize_lines(@lines);
+ my $self = shift;
+ my $svnroot = $self->{'svnroot'};
+ my @lines = `find $svnroot ! -wholename '*/.svn*'`;
+ @lines = map { s@^$svnroot@@; s@^/@@; " 1 1 dummy $_" } @lines;
+ $self->_initialize_lines(@lines);
}
sub _initialize_lines {
@@ -73,7 +73,7 @@ sub _initialize_lines {
add_path_to_tree($self->{'_dirtree'}, split("[/\\\\]", $dn));
push @{$self->{'_filesofdir'}{$dn}}, $fn;
} else {
- warn("Ignoring svn status output line:\n $l\n");
+ warn("Ignoring svn status output line:\n $l\n");
#die("Cannot read svn status output line:\n $l\n");
}
}