diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-03-04 11:35:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-03-04 11:35:12 +0000 |
| commit | 574c3628c48e07eea80d0250dad59787296de92d (patch) | |
| tree | 5323e89f5f1c5cd868b54ba5fd6406b8c6567447 /perl-install | |
| parent | 6db0ccc0b1e65f82f266981290d18e1fa719bcf1 (diff) | |
| download | drakx-backup-do-not-use-574c3628c48e07eea80d0250dad59787296de92d.tar drakx-backup-do-not-use-574c3628c48e07eea80d0250dad59787296de92d.tar.gz drakx-backup-do-not-use-574c3628c48e07eea80d0250dad59787296de92d.tar.bz2 drakx-backup-do-not-use-574c3628c48e07eea80d0250dad59787296de92d.tar.xz drakx-backup-do-not-use-574c3628c48e07eea80d0250dad59787296de92d.zip | |
(_install_raw::trans_error_summary) do not die if a transaction
failed ; only warn about it in graphical mode (no more a fata error
for auto install)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/install/pkgs.pm | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index b02be4ab5..6b43cedfa 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- only warn if a transaction failed (no more a fata error for auto + installs) - prevent urpmi from leaking a log file descriptor per transaction - really set urpmi in automatic mode for non-interactive installs (and not vice-versa) diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 15556e224..4acb84ac9 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -764,7 +764,10 @@ sub _install_raw { trans_error_summary => sub { my ($nok, $errors) = @_; log::l($nok . " installation transactions failed"); - die "installation of rpms failed:\n " . join("\n", @$errors); + if (!$packages->{options}{auto}) { + $::o->ask_warn(N("Error"), N("%d installation transactions failed", $nok) . "\n\n" . + N("Installation of packages failed:") . "\n\n" . join("\n", @$errors)); + } }, message => sub { my ($title, $message) = @_; |