diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2003-05-20 13:29:31 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2003-05-20 13:29:31 +0000 |
| commit | 8c02d55a7370c47d014e7d842f15514715731651 (patch) | |
| tree | 35cc52c1bf26c5906052e98dcfc92eeb0d6fcea0 | |
| parent | 1d3a07147ac81ccf59ebdff2860fa9e35cbf407a (diff) | |
| download | drakx-8c02d55a7370c47d014e7d842f15514715731651.tar drakx-8c02d55a7370c47d014e7d842f15514715731651.tar.gz drakx-8c02d55a7370c47d014e7d842f15514715731651.tar.bz2 drakx-8c02d55a7370c47d014e7d842f15514715731651.tar.xz drakx-8c02d55a7370c47d014e7d842f15514715731651.zip | |
fix BUG 2530, no more spurious window when insmoding fail
| -rw-r--r-- | perl-install/modules/interactive.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/modules/interactive.pm b/perl-install/modules/interactive.pm index f7b7801e9..720f4308c 100644 --- a/perl-install/modules/interactive.pm +++ b/perl-install/modules/interactive.pm @@ -34,7 +34,8 @@ sub load_category { @l = modules::load_category($category, $wait_message, 'force') if !@l && $b_at_least_one; } if (my @err = grep { $_ } map { $_->{error} } @l) { - $in->ask_warn('', join("\n", @err)); + my $return = $in->ask_warn('', join("\n", @err)); + $in->exit(1) if !defined($return); } return @l if $b_auto && (@l || !$b_at_least_one); |