summaryrefslogtreecommitdiffstats
path: root/perl-install/network/modem.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-08-18 08:30:38 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-08-18 08:30:38 +0000
commit5b5f63e4b5b0cdeddec96901863c7c387bed26ce (patch)
tree9144ab223d4d765260f7bee864bd3c6f9b995d8d /perl-install/network/modem.pm
parent419abdd72f1e422906224dc36a4379eab0c2c417 (diff)
downloaddrakx-5b5f63e4b5b0cdeddec96901863c7c387bed26ce.tar
drakx-5b5f63e4b5b0cdeddec96901863c7c387bed26ce.tar.gz
drakx-5b5f63e4b5b0cdeddec96901863c7c387bed26ce.tar.bz2
drakx-5b5f63e4b5b0cdeddec96901863c7c387bed26ce.tar.xz
drakx-5b5f63e4b5b0cdeddec96901863c7c387bed26ce.zip
fix some previous callback in drakconnect wizard mode
Diffstat (limited to 'perl-install/network/modem.pm')
-rw-r--r--perl-install/network/modem.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 365f73d48..e7e1b509d 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -215,7 +215,9 @@ sub ppp_choose {
$o_mouse ||= {};
$o_mouse->{device} ||= readlink "$::prefix/dev/mouse";
- $modem->{device} ||= $in->ask_from_listf_raw({ messsages => N("Please choose which serial port your modem is connected to."),
+ my $need_to_ask = $modem->{device};
+ step_1:
+ $need_to_ask and $modem->{device} = $in->ask_from_listf_raw({ messsages => N("Please choose which serial port your modem is connected to."),
interactive_help_id => 'selectSerialPort',
},
\&mouse::serial_port2text,
@@ -232,7 +234,7 @@ sub ppp_choose {
{ label => N("Domain name"), val => \$modem->{domain} },
{ label => N("First DNS Server (optional)"), val => \$modem->{dns1} },
{ label => N("Second DNS Server (optional)"), val => \$modem->{dns2} },
- ]) or return;
+ ]) or do { if ($need_to_ask) { goto step_1 } else { return } };
$netc->{DOMAINNAME2} = $modem->{domain};
ppp_configure($in, $modem);
$netc->{$_} = 'ppp0' foreach 'NET_DEVICE', 'NET_INTERFACE';