texlive[53056] Master/texmf-dist/scripts/texlive/tlmgr.pl: remove

[commits+preining at tug.org]

Revision: 53056
          http://tug.org/svn/texlive?view=revision&revision=53056
Author:   preining
Date:     2019-12-07 05:19:36 +0100 (Sat, 07 Dec 2019)
Log Message:
-----------
remove rNNNN from make_container calls, automatically added

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2019-12-07 00:54:04 UTC (rev 53055)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2019-12-07 04:19:36 UTC (rev 53056)
@@ -1096,7 +1096,6 @@
   if ($opts{"backup"}) {
     $tlp->make_container($::progs{'compressor'}, $localtlpdb->root,
                          destdir => $opts{"backupdir"}, 
-                         containername => "${pkg}.r" . $tlp->revision,
                          relative => $tlp->relocated,
                          user => 1);
     if ($autobackup) {
@@ -2168,7 +2167,6 @@
       if (!$opts{"dry-run"}) {
         $tlp->make_container($::progs{'compressor'}, $localtlpdb->root,
                              destdir => $opts{"backupdir"},
-                             containername => "${pkg}.r" . $tlp->revision,
                              user => 1);
       }
     }
@@ -2288,7 +2286,7 @@
     #   some-name.r[0-9]+
     my ($size, undef, $fullname) = $localtlp->make_container("tar", $root,
                                      destdir => $temp,
-                                     containername => "__BACKUP_$pkg.r$oldrev",
+                                     containername => "__BACKUP_$pkg",
                                      user => 1);
     if ($size <= 0) {
       tlwarn("$prg: creation of backup container failed for: $pkg\n");
@@ -3210,7 +3208,6 @@
         my $compressorextension = $Compressors{$::progs{'compressor'}}{'extension'};
         $tlp->make_container($::progs{'compressor'}, $root,
                              destdir => $opts{"backupdir"},
-                             containername => "${pkg}.r" . $tlp->revision,
                              relative => $tlp->relocated,
                              user => 1);
         $unwind_package =
@@ -3252,7 +3249,7 @@
         my $tlp = $localtlpdb->get_package($pkg);
         my ($s, undef, $fullname) = $tlp->make_container("tar", $root,
                          destdir => $temp,
-                         containername => "__BACKUP_${pkg}.r" . $tlp->revision,
+                         containername => "__BACKUP_${pkg}",
                          relative => $tlp->relocated,
                          user => 1);
         if ($s <= 0) {