diff options
| author | Norbert Preining <preining@logic.at> | 2007-07-12 09:38:09 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2007-07-12 09:38:09 +0000 |
| commit | 2559ab32acfcf160257c8a7c85c968e7dd58b589 (patch) | |
| tree | 96c6dfb1847833fd69bf0b03305a22f6119e5cc7 /Master/tlpkg/TeXLive/TLTREE.pm | |
| parent | fb899d343bd98cff4dfa012ef1e5cb7f851e69f4 (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.pm | 12 |
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"); } } |