diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-09-03 17:29:30 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-09-03 17:29:30 +0000 |
commit | 3e7860b74e1b73fef2851dc4a01f5a6c561e8138 (patch) | |
tree | 3cb900f67b1d2c58d92ccc3f2d61cf806421db46 /perl-install/install/pkgs.pm | |
parent | e0e06f6413db77a91a17d3bd2fd5233d53bd8cb6 (diff) | |
download | drakx-backup-do-not-use-3e7860b74e1b73fef2851dc4a01f5a6c561e8138.tar drakx-backup-do-not-use-3e7860b74e1b73fef2851dc4a01f5a6c561e8138.tar.gz drakx-backup-do-not-use-3e7860b74e1b73fef2851dc4a01f5a6c561e8138.tar.bz2 drakx-backup-do-not-use-3e7860b74e1b73fef2851dc4a01f5a6c561e8138.tar.xz drakx-backup-do-not-use-3e7860b74e1b73fef2851dc4a01f5a6c561e8138.zip |
(installPackages) prevent going further if some transactions failed (mga#7016)
(_install_raw,install) propagate exit code
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r-- | perl-install/install/pkgs.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 620e26b99..0115cd016 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -774,7 +774,7 @@ sub install { #- place (install::steps_gtk.pm,...). $callback->($packages, user => undef, install => $nb, $total); - _install_raw($packages, $isUpgrade, $callback, $LOG, 0); + my $exit_code = _install_raw($packages, $isUpgrade, $callback, $LOG, 0); log::l("closing install.log file"); close $LOG; @@ -785,6 +785,8 @@ sub install { clean_rpmdb_shared_regions(); #- workaround librpm which is buggy when using librpm rooted and the just installed rooted library fs::loopback::save_boot($loop_boot); + + $exit_code; } sub _unselect_package { |