From a4d6397e21499768cd1e3d88fd06aee6db0176d5 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 31 Aug 2018 03:41:13 +0000 Subject: fix -init-from-git in texlive.git git-svn-id: svn://tug.org/texlive/trunk@48520 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLTREE.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'Master') diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index bc928190f8e..752ddf7fc91 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -82,6 +82,7 @@ sub init_from_git { chomp(@foo); my $curcom = ""; + my $rev = 0; for my $l (@foo) { if ($l eq "") { $curcom = ""; @@ -118,8 +119,11 @@ sub init_from_git { # now reverse the order for my $f (keys %files) { my $n = - ( $files{$f} - $rev ) + 1; + # special case for TL: remove Master if it is present + $f =~ s!^Master/!!; push @lines, " $n $n dummy $f" } + # debug(join("\n", @lines)); # TODO needs to be made better! $self->{'revision'} = $rev; $self->_initialize_lines(@lines); -- cgit v1.2.3