summaryrefslogtreecommitdiffstats
path: root/perl-install/modules/interactive.pm
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-05-20 13:29:31 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-05-20 13:29:31 +0000
commit8c02d55a7370c47d014e7d842f15514715731651 (patch)
tree35cc52c1bf26c5906052e98dcfc92eeb0d6fcea0 /perl-install/modules/interactive.pm
parent1d3a07147ac81ccf59ebdff2860fa9e35cbf407a (diff)
downloaddrakx-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
Diffstat (limited to 'perl-install/modules/interactive.pm')
-rw-r--r--perl-install/modules/interactive.pm3
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);