summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-01-06 04:21:37 +0000
committerNorbert Preining <preining@logic.at>2016-01-06 04:21:37 +0000
commitebf0dca7678cef41dbc45a184a5e1c7966961a33 (patch)
tree0ae7abd0f12a4927ddda0b76b5ca28af2f1b8556 /Master/texmf-dist
parent13d701031f45d0f89570ab34649b80bdcc473edc (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')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl5
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