diff options
| author | Norbert Preining <preining@logic.at> | 2016-04-30 10:36:33 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2016-04-30 10:36:33 +0000 |
| commit | 16c0b20d813782b5f64ea9e6750670275d39a862 (patch) | |
| tree | 62625b364ddb90f461ce25724376bdeabfba1d47 /Master/tlpkg/TeXLive/TLUtils.pm | |
| parent | cf16e9b6337ff2fca9de4342564a64009cc368ed (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.pm | 7 |
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; |