diff options
author | Norbert Preining <preining@logic.at> | 2007-06-22 06:56:24 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-06-22 06:56:24 +0000 |
commit | 6e8cff94023ff7e3c4d700d0d8acd836cd7563c5 (patch) | |
tree | 975e1405907be3ee1437bd78128f12d0cdb11158 /Master/tlpkg/TeXLive/TLTREE.pm | |
parent | 3436f00ff54d1f44a0b8f96fd3c563e53861a6f2 (diff) |
TLTREE: if a file does not have a revision attached (svn commit has
not been done) then the revision value is set to 1.
git-svn-id: svn://tug.org/texlive/trunk@4485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index 8b508bef634..39c650665b6 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -64,7 +64,7 @@ sub _initialize_lines { chomp($l); next if ($l =~ /^\?/); # ignore files not under version control if ($l =~ /^(.)(.)(.)(.)(.)(.)..\s*(\d+)\s+([\d\?]+)\s+([\w\?]+)\s+(.+)$/) { - my $lastchanged = $8; + my $lastchanged = ($8 eq "?" ? 1 : $8); my $entry = "$10"; next if -d $entry; # TODO: what to do with links??? $self->{'_allfiles'}{$entry}{'lastchangedrev'} = $lastchanged; |