diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-06-23 06:43:28 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-06-23 06:43:28 +0000 |
| commit | 37126cd2c90d789ab914b0f28773413afc6a4488 (patch) | |
| tree | ac35733dda98901b1053acb24ee410472ac8ebf4 /perl-install/install | |
| parent | 0d5b858326902d2c02393dc26ddab7e70b6582c4 (diff) | |
| download | drakx-backup-do-not-use-37126cd2c90d789ab914b0f28773413afc6a4488.tar drakx-backup-do-not-use-37126cd2c90d789ab914b0f28773413afc6a4488.tar.gz drakx-backup-do-not-use-37126cd2c90d789ab914b0f28773413afc6a4488.tar.bz2 drakx-backup-do-not-use-37126cd2c90d789ab914b0f28773413afc6a4488.tar.xz drakx-backup-do-not-use-37126cd2c90d789ab914b0f28773413afc6a4488.zip | |
(setPackages) show all errors at once when setting media
Diffstat (limited to 'perl-install/install')
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/install/any.pm | 20 |
2 files changed, 16 insertions, 5 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 291d3e4b8..f9a5da586 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,4 @@ +- show all errors at once when setting media - fix settings 'suggests' properly according to 'no_suggests' (aka default to suggests enabled) regression intoduced in 14.23 diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 401fae702..89c0b0b14 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -322,13 +322,23 @@ sub setPackages { my $media = $o->{media} || [ { type => 'media_cfg', url => 'drakx://media' } ]; - my ($suppl_method, $copy_rpms_on_disk) = install::media::get_media($o, $media, $o->{packages}); - - if ($suppl_method) { - 1 while $o->selectSupplMedia; + { + my @errors; + local $::o->{packages}{error} = sub { + log::l("urpmi error: $_[0]"); + push @errors, @_; + }; + my ($suppl_method, $copy_rpms_on_disk) = install::media::get_media($o, $media, $o->{packages}); + + if ($suppl_method) { + 1 while $o->selectSupplMedia; + } + install::media::configure_media($o->{packages}); + if (@errors) { + $::o->ask_warn(undef, N("An error occurred:") . "\n\n" . join("\n", @errors)); + } } - install::media::configure_media($o->{packages}); install::media::adjust_paths_in_urpmi_cfg($o->{packages}); log::l('urpmi completely set up'); |