summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-22 22:56:45 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-22 22:56:45 +0000
commit936151d5c0e0dd6edefb0d8d70456d0c32bb2555 (patch)
tree41101b6c00d91ed2206d71cbda5d2b2fc03daa14 /perl-install/network/netconnect.pm
parent074cd38a7402670a15ba92fd9feb7bd391a79cbc (diff)
downloaddrakx-936151d5c0e0dd6edefb0d8d70456d0c32bb2555.tar
drakx-936151d5c0e0dd6edefb0d8d70456d0c32bb2555.tar.gz
drakx-936151d5c0e0dd6edefb0d8d70456d0c32bb2555.tar.bz2
drakx-936151d5c0e0dd6edefb0d8d70456d0c32bb2555.tar.xz
drakx-936151d5c0e0dd6edefb0d8d70456d0c32bb2555.zip
get rid of uselesss net_device variabl
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm8
1 files changed, 3 insertions, 5 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index a63532738..409285631 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -91,7 +91,7 @@ sub get_subwizard {
my ($modem, $modem_name, $modem_conf_read, $modem_dyn_dns, $modem_dyn_ip);
my ($adsl_type, $adsl_device, @adsl_devices, $adsl_failed, $adsl_answer);
my ($ntf_name, $ipadr, $netadr, $gateway_ex, $up, $isdn, $isdn_type, $need_restart_network);
- my ($module, $text, $auto_ip, $net_device, $onboot, $needhostname, $hotplug, $track_network_id, @fields); # lan config
+ my ($module, $text, $auto_ip, $onboot, $needhostname, $hotplug, $track_network_id, @fields); # lan config
my $success = 1;
my $ethntf = {};
@@ -610,7 +610,7 @@ and copy the mgmt.o in /usr/share/speedtouch", 'http://prdownloads.sourceforge.n
Some connections use pptp, a few use dhcp.
If you don't know, choose 'use pppoe'"),
data => [
- { label => N("ADSL connection type :"), val => \$adsl_type, type => "list",
+ { text => N("ADSL connection type :"), val => \$adsl_type, type => "list",
list => [
N("Dynamic Host Configuration Protocol (DHCP)"),
N("Manual TCP/IP configuration"),
@@ -639,9 +639,8 @@ You can find a driver on http://eciadsl.flashtux.org/"),
post => sub {
delete $ethntf->{$_} foreach keys %$ethntf;
add2hash($ethntf, $intf->{$ntf_name});
- $net_device = $netc->{NET_DEVICE};
return "lan_intf" if $type ne 'lan';
- $::isInstall && $net_device eq $ethntf->{DEVICE} ? 'lan_alrd_cfg' : 'lan_protocol';
+ $::isInstall && $netc->{NET_DEVICE} eq $ethntf->{DEVICE} ? 'lan_alrd_cfg' : 'lan_protocol';
},
},
@@ -684,7 +683,6 @@ Modifying the fields below will override this configuration."),
lan_intf =>
{
pre => sub {
- $net_device = $netc->{NET_DEVICE};
$onboot = $ethntf->{ONBOOT} ? $ethntf->{ONBOOT} =~ /yes/ : bool2yesno(!member($ethntf->{DEVICE},
map { $_->{device} } detect_devices::pcmcia_probe()));
$needhostname = $ethntf->{NEEDHOSTNAME} !~ /no/;