From 10ad1d8908cc760fdeee1f22af69d1f1d8ff9e27 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Tue, 31 Jul 2001 00:25:05 +0000
Subject: corrected ask_connect_now

---
 perl-install/network/tools.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/network/tools.pm')

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;
 }
 
-- 
cgit v1.2.1