diff options
| author | Norbert Preining <preining@logic.at> | 2018-08-31 03:41:13 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2018-08-31 03:41:13 +0000 |
| commit | a4d6397e21499768cd1e3d88fd06aee6db0176d5 (patch) | |
| tree | 9979567f36b7b73eaac5f8ead929244967e76bd8 /Master/tlpkg/TeXLive/TLTREE.pm | |
| parent | 10bcd5b4b636dd35202cb4e734d20cdea092b81a (diff) | |
fix -init-from-git in texlive.git
git-svn-id: svn://tug.org/texlive/trunk@48520 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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); |