summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-02 14:52:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-02 14:52:41 +0000
commitc367a7b536cbc28a666370a8935718980bdc5ee3 (patch)
tree367cf2853e3fa81eee160437c102ca8c6b3b39dc /perl-install/install_steps_interactive.pm
parentb6b6e19519b647762f5b1497387893bc8094f879 (diff)
downloaddrakx-c367a7b536cbc28a666370a8935718980bdc5ee3.tar
drakx-c367a7b536cbc28a666370a8935718980bdc5ee3.tar.gz
drakx-c367a7b536cbc28a666370a8935718980bdc5ee3.tar.bz2
drakx-c367a7b536cbc28a666370a8935718980bdc5ee3.tar.xz
drakx-c367a7b536cbc28a666370a8935718980bdc5ee3.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm7
1 files changed, 2 insertions, 5 deletions
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 ?