summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-04-30 10:36:33 +0000
committerNorbert Preining <preining@logic.at>2016-04-30 10:36:33 +0000
commit16c0b20d813782b5f64ea9e6750670275d39a862 (patch)
tree62625b364ddb90f461ce25724376bdeabfba1d47 /Master/tlpkg/TeXLive/TLUtils.pm
parentcf16e9b6337ff2fca9de4342564a64009cc368ed (diff)
installer/TLUtils::install_packages: break out if installation fails
git-svn-id: svn://tug.org/texlive/trunk@40814 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index eedc1175183..5e08a95493a 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1338,9 +1338,10 @@ sub install_packages {
foreach my $h (@::install_packages_hook) {
&$h($n,$totalnr);
}
- # TODO TODO
- # we do NOT check the return value!!!
- $fromtlpdb->install_package($package, $totlpdb);
+ # return false if something went wrong
+ if (!$fromtlpdb->install_package($package, $totlpdb)) {
+ return 0;
+ }
$donesize += $tlpsizes{$package};
}
my $totaltime = time() - $starttime;