summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-09-28 21:33:38 +0000
committerKarl Berry <karl@freefriends.org>2019-09-28 21:33:38 +0000
commitba8f9817d50e9533e8925630f9fe1290be27cf33 (patch)
tree8e17af362e9114a6f533dcc32f02bb43551d1fdb /Build
parentccc34419a1783744295ce86fffaf9138b91d72f7 (diff)
glossaries (28sep19)
git-svn-id: svn://tug.org/texlive/trunk@52199 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/texlive/tlmgr.pl35
1 files changed, 11 insertions, 24 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
index 69793b92eef..fc6c96906ed 100755
--- a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
+++ b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
@@ -1095,10 +1095,9 @@ sub backup_and_remove_package {
}
if ($opts{"backup"}) {
$tlp->make_container($::progs{'compressor'}, $localtlpdb->root,
- destdir => $opts{"backupdir"},
- containername => "${pkg}.r" . $tlp->revision,
- relative => $tlp->relocated,
- user => 1);
+ $opts{"backupdir"},
+ "${pkg}.r" . $tlp->revision,
+ $tlp->relocated);
if ($autobackup) {
# in case we do auto backups we remove older backups
clear_old_backups($pkg, $opts{"backupdir"}, $autobackup);
@@ -2165,9 +2164,7 @@ sub action_backup {
$tlp->revision . ".tar.$compressorextension\n");
if (!$opts{"dry-run"}) {
$tlp->make_container($::progs{'compressor'}, $localtlpdb->root,
- destdir => $opts{"backupdir"},
- containername => "${pkg}.r" . $tlp->revision,
- user => 1);
+ $opts{"backupdir"}, "${pkg}.r" . $tlp->revision);
}
}
}
@@ -2282,13 +2279,8 @@ sub write_w32_updater {
push (@rst_tlpobj, "tlpkg\\tlpobj\\$pkg.tlpobj");
push (@rst_info, "$pkg ^($oldrev^)");
next if ($opts{"dry-run"});
- # create backup;
- # make_container expects filename with format: somename.r[0-9]+
- my ($size, undef, $fullname)
- = $localtlp->make_container("tar", $root,
- destdir => $temp,
- containername => "__BACKUP_$pkg.r$oldrev",
- user => 1);
+ # create backup; make_container expects file name in a format: some-name.r[0-9]+
+ my ($size, undef, $fullname) = $localtlp->make_container("tar", $root, $temp, "__BACKUP_$pkg.r$oldrev");
if ($size <= 0) {
tlwarn("$prg: Creation of backup container of $pkg failed.\n");
return 1; # backup failed? abort
@@ -3208,10 +3200,8 @@ sub action_update {
if ($opts{"backup"} && !$opts{"dry-run"}) {
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);
+ $opts{"backupdir"}, "${pkg}.r" . $tlp->revision,
+ $tlp->relocated);
$unwind_package =
"$opts{'backupdir'}/${pkg}.r" . $tlp->revision . ".tar.$compressorextension";
@@ -3249,12 +3239,9 @@ sub action_update {
# no backup was made, so let us create a temporary .tar file
# of the package
my $tlp = $localtlpdb->get_package($pkg);
- my ($s, undef, $fullname)
- = $tlp->make_container("tar", $root,
- destdir => $temp,
- containername => "__BACKUP_${pkg}.r" . $tlp->revision,
- relative => $tlp->relocated,
- user => 1);
+ my ($s, undef, $fullname) = $tlp->make_container("tar", $root, $temp,
+ "__BACKUP_${pkg}.r" . $tlp->revision,
+ $tlp->relocated);
if ($s <= 0) {
tlwarn("\n$prg: Creation of backup container of $pkg failed.\n");
tlwarn("$prg: Continuing to update other packages, please retry...\n");