diff options
author | Norbert Preining <preining@logic.at> | 2016-01-06 04:21:21 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-01-06 04:21:21 +0000 |
commit | e7dbc0c56fafe5717774ff29b80bc262e210676b (patch) | |
tree | 3615f7ca913d5817bf5489cff6d823a55947906b /Master/texmf-dist | |
parent | b2789fe251264aceb4417b14edb31f8fe880b3e5 (diff) |
checksum verification update, unwinding works again
git-svn-id: svn://tug.org/texlive/trunk@39292 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 7619e353e31..e64ca236fe5 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -3182,8 +3182,11 @@ sub action_update { $remove_unwind_container = 1; $unwind_package = $newname; } - my $instret = TeXLive::TLPDB->_install_package("$unwind_package", 0, - [], $localtlpdb); + + my $instret = TeXLive::TLUtils::unpack("$unwind_package", + $localtlpdb->root); + # my $instret = TeXLive::TLPDB->_install_data("$unwind_package", 0, + # [], $localtlpdb); if ($instret) { # now we have to include the tlpobj my $tlpobj = TeXLive::TLPOBJ->new; @@ -3668,9 +3671,12 @@ sub action_install { info("[$currnr/$totalnr, $estrem/$esttot] ${re}install: $pkg$tagstr [${kb}k]\n"); } if (!$opts{"dry-run"}) { - $remotetlpdb->install_package($pkg, $localtlpdb, - ($packs{$pkg} ? $packs{$pkg} : undef) ); - logpackage("${re}install: $pkg$tagstr"); + if ($remotetlpdb->install_package($pkg, $localtlpdb, + ($packs{$pkg} ? $packs{$pkg} : undef) )) { + logpackage("${re}install: $pkg$tagstr"); + } else { + logpackage("failed ${re}install: $pkg$tagstr"); + } } $donesize += $sizes{$pkg}; $currnr++; |