diff options
author | Norbert Preining <preining@logic.at> | 2007-06-21 07:56:23 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-06-21 07:56:23 +0000 |
commit | 619755811005b3f01f7778847240ab5157eabc1a (patch) | |
tree | b17a813f3085f773f029956d2db6e9d776449c0d /Master | |
parent | a40daa3b3f582b85f1321c97d609923e7b60d44d (diff) |
TLTREE: $tltree->init_from_files
inits from a find $svnroot command, all the revisions are set to 1
git-svn-id: svn://tug.org/texlive/trunk@4483 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 8 | ||||
-rw-r--r-- | Master/tlpkg/doc/Perl-API.txt | 3 |
2 files changed, 11 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index f979618b303..8b508bef634 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -45,6 +45,13 @@ sub init_from_statusfile { close(TMP); $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); +} sub _initialize_lines { my $self = shift; @@ -217,6 +224,7 @@ sub _get_matching_files { # . -> \. # * -> .* # ? -> . +# + -> \+ sub _get_files_matching_glob_pattern { my $self = shift; my ($type,$globline) = @_; diff --git a/Master/tlpkg/doc/Perl-API.txt b/Master/tlpkg/doc/Perl-API.txt index ee1e3e69443..2f92a6000a9 100644 --- a/Master/tlpkg/doc/Perl-API.txt +++ b/Master/tlpkg/doc/Perl-API.txt @@ -150,6 +150,9 @@ Init functions $tltree->init_from_statusfile($file) does the same as init_from_svn, but from a pre-made output of svn status -v + $tltree->init_from_files + inits from a find $svnroot command, all the revisions + are set to 1 Input/Ouput |