fix -init-from-git in texlive.git

git-svn-id: svn://tug.org/texlive/trunk@48520 c570f23f-e606-0410-a88d-b1316a301751

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);