diff options
| author | Norbert Preining <preining@logic.at> | 2008-05-31 21:58:08 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-05-31 21:58:08 +0000 |
| commit | 578595653415bd6a2192dd44d08c9ee3f4f4f0e4 (patch) | |
| tree | a56c04533117fd7013a035720bb1f90abf9a3d0f | |
| parent | 18af728691f909fe9759db57c8027d77c8e85c0f (diff) | |
don't call svnversion but use the svn status -v output
git-svn-id: svn://tug.org/texlive/trunk@8435 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index 310dd56e627..d8107c1a5a8 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -31,7 +31,6 @@ sub init_from_svn { my $self = shift; die("Undefined svn root!") if (!defined($self->{'svnroot'})); my @lines = `cd $self->{'svnroot'} && svn status -v`; - $self->{'revision'} = `svnversion -n`; $self->_initialize_lines(@lines); } @@ -41,7 +40,6 @@ sub init_from_statusfile { open(TMP,"<$_[0]") || die("Cannot open svn status file: $_[0]"); my @lines = <TMP>; close(TMP); - $self->{'revision'} = `svnversion -n`; $self->_initialize_lines(@lines); } sub init_from_files { @@ -65,6 +63,7 @@ sub _initialize_lines { chomp($l); 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 |