diff options
Diffstat (limited to 'Master/texmf-dist')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index e89a3ab30d9..906faff441f 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -1091,8 +1091,7 @@ sub backup_and_remove_package { return($F_WARNING); } if ($opts{"backup"}) { - my ($compressor, $compressorextension) = TeXLive::TLUtils::setup_compressor(); - $tlp->make_container($compressor, $localtlpdb->root, + $tlp->make_container($::progs{'compressor'}, $localtlpdb->root, $opts{"backupdir"}, "${pkg}.r" . $tlp->revision, $tlp->relocated); @@ -2142,12 +2141,12 @@ sub action_backup { clear_old_backups ($pkg, $opts{"backupdir"}, $opts{"clean"}, $opts{"dry-run"}, 1); } else { # for now default to xz and allow overriding with env var - my ($compressor, $compressorextension) = TeXLive::TLUtils::setup_compressor(); + my $compressorextension = $CompressorExtension{$::progs{'compressor'}}; my $tlp = $localtlpdb->get_package($pkg); info("saving current status of $pkg to $opts{'backupdir'}/${pkg}.r" . $tlp->revision . ".tar.$compressorextension\n"); if (!$opts{"dry-run"}) { - $tlp->make_container($compressor, $localtlpdb->root, + $tlp->make_container($::progs{'compressor'}, $localtlpdb->root, $opts{"backupdir"}, "${pkg}.r" . $tlp->revision); } } @@ -3182,8 +3181,8 @@ sub action_update { } if ($opts{"backup"} && !$opts{"dry-run"}) { - my ($compressor, $compressorextension) = TeXLive::TLUtils::setup_compressor(); - $tlp->make_container($compressor, $root, + my $compressorextension = $CompressorExtension{$::progs{'compressor'}}; + $tlp->make_container($::progs{'compressor'}, $root, $opts{"backupdir"}, "${pkg}.r" . $tlp->revision, $tlp->relocated); $unwind_package = |