From 8c02d55a7370c47d014e7d842f15514715731651 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
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