summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-31 21:58:08 +0000
committerNorbert Preining <preining@logic.at>2008-05-31 21:58:08 +0000
commit578595653415bd6a2192dd44d08c9ee3f4f4f0e4 (patch)
treea56c04533117fd7013a035720bb1f90abf9a3d0f /Master/tlpkg/TeXLive/TLTREE.pm
parent18af728691f909fe9759db57c8027d77c8e85c0f (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
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm3
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