From 6e8cff94023ff7e3c4d700d0d8acd836cd7563c5 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 22 Jun 2007 06:56:24 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLTREE.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive/TLTREE.pm') 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; -- cgit v1.2.3