texlive[48520] Master/tlpkg/TeXLive/TLTREE.pm: fix -init-from-git in

commits+preining at tug.org commits+preining at tug.org
Fri Aug 31 05:41:13 CEST 2018


Revision: 48520
          http://tug.org/svn/texlive?view=revision&revision=48520
Author:   preining
Date:     2018-08-31 05:41:13 +0200 (Fri, 31 Aug 2018)
Log Message:
-----------
fix -init-from-git in texlive.git

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLTREE.pm

Modified: trunk/Master/tlpkg/TeXLive/TLTREE.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLTREE.pm	2018-08-31 00:23:50 UTC (rev 48519)
+++ trunk/Master/tlpkg/TeXLive/TLTREE.pm	2018-08-31 03:41:13 UTC (rev 48520)
@@ -82,6 +82,7 @@
   chomp(@foo);
 
   my $curcom = "";
+  my $rev = 0;
   for my $l (@foo) {
     if ($l eq "") {
       $curcom = "";
@@ -118,8 +119,11 @@
   # 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);



More information about the tex-live-commits mailing list