diff options
author | Norbert Preining <preining@logic.at> | 2016-01-06 04:21:37 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-01-06 04:21:37 +0000 |
commit | ebf0dca7678cef41dbc45a184a5e1c7966961a33 (patch) | |
tree | 0ae7abd0f12a4927ddda0b76b5ca28af2f1b8556 /Master/texmf-dist/scripts | |
parent | 13d701031f45d0f89570ab34649b80bdcc473edc (diff) |
unpack: return pair of 0,1 and msg, use it
git-svn-id: svn://tug.org/texlive/trunk@39294 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index e64ca236fe5..c683e4a5263 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -3183,10 +3183,8 @@ sub action_update { $unwind_package = $newname; } - my $instret = TeXLive::TLUtils::unpack("$unwind_package", + my ($instret, $msg) = 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; @@ -3199,6 +3197,7 @@ sub action_update { } else { logpackage("failed restore: $pkg ($rev)"); tlwarn("$prg: Restoring of old package did NOT succeed.\n"); + tlwarn("$prg: Error message from unpack: $msg\n"); tlwarn("$prg: Most likely repair: run tlmgr install $pkg and hope.\n"); # TODO_ERRORCHECKING # should we return F_ERROR here??? If we would do this, then |