summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-08-31 03:41:13 +0000
committerNorbert Preining <preining@logic.at>2018-08-31 03:41:13 +0000
commita4d6397e21499768cd1e3d88fd06aee6db0176d5 (patch)
tree9979567f36b7b73eaac5f8ead929244967e76bd8 /Master/tlpkg/TeXLive/TLTREE.pm
parent10bcd5b4b636dd35202cb4e734d20cdea092b81a (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.pm4
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);