From c367a7b536cbc28a666370a8935718980bdc5ee3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 2 May 2000 14:52:41 +0000
Subject: no_comment

---
 perl-install/install_steps_interactive.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index def291362..6df194793 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1148,11 +1148,8 @@ sub setup_thiskind {
 
     if ($allow_probe) {
 	eval { @l = $o->load_thiskind($type) };
-	if ($@) {
-	    $o->errorInStep($@);
-	} else {
-	    return if $auto && (@l || !$at_least_one);
-	}
+	$o->ask_warn('', $@) if $@;
+	return if $auto && (@l || !$at_least_one);
     }
     while (1) {
 	my $msg = @l ?
-- 
cgit v1.2.1