summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-23 08:25:11 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-23 08:25:11 +0000
commit47300ec5219cf0cf340932ec3d7bf65e3420808a (patch)
treeecae1a382a8f836610030afa72871c52383fb403 /perl-install
parent5e76a83856dc7ce75649fb762b9d2769f8168fa1 (diff)
downloaddrakx-47300ec5219cf0cf340932ec3d7bf65e3420808a.tar
drakx-47300ec5219cf0cf340932ec3d7bf65e3420808a.tar.gz
drakx-47300ec5219cf0cf340932ec3d7bf65e3420808a.tar.bz2
drakx-47300ec5219cf0cf340932ec3d7bf65e3420808a.tar.xz
drakx-47300ec5219cf0cf340932ec3d7bf65e3420808a.zip
initialize modem data structure at one point only for serial/PCI modems
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm4
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 77dcfe299..af8151148 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -365,6 +365,7 @@ Take a look at http://www.linmodems.org"),
[ { label => N("Modem"), type => "list", val => \$modem_name, list => [ keys %{$netc->{autodetect}{modem}} ], allow_empty_list => 1 } ],
},
post => sub {
+ $modem ||= $netcnx->{modem} ||= {};;
$ntf_name = $netc->{autodetect}{modem}{$modem_name}{device} || $netc->{autodetect}{modem}{$modem_name}{description};
return "ppp_provider" if $ntf_name =~ m!^/dev/!;
@@ -394,9 +395,6 @@ Take a look at http://www.linmodems.org"),
choose_serial_port =>
{
- pre => sub {
- $modem ||= $netcnx->{modem} ||= {};;
- },
name => N("Please choose which serial port your modem is connected to."),
interactive_help_id => 'selectSerialPort',
data => sub {