From 8c02d55a7370c47d014e7d842f15514715731651 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Tue, 20 May 2003 13:29:31 +0000 Subject: fix BUG 2530, no more spurious window when insmoding fail --- perl-install/modules/interactive.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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); -- cgit v1.2.1