summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/network/tools.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index c6443443e..f76782251 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -26,7 +26,8 @@ sub write_secret_backend {
}
sub ask_connect_now {
-# my ($cnx, $inter) = @_;
+ $::Wizard_no_previous=1;
+ #- FIXME : code the exception to be generated by ask_yesorno, to be able to remove the $::Wizard_no_previous=1;
my $a;
eval { $a = $in->ask_yesorno(_("Internet configuration"),
_("Do you want to try to connect to the Internet now?")
@@ -54,6 +55,7 @@ Try to reconfigure your connection.");
} else { $in->ask_warn('', $m ); }
$::isInstall and disconnect_backend();
}
+ undef $::Wizard_no_previous;
1;
}