diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-07 22:34:45 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-07 22:34:45 +0000 |
| commit | 97cc5b8af6b46368a766240c5c94c002bd58dce5 (patch) | |
| tree | d460f4147db93faca45c3f2650c9695908997031 | |
| parent | 5f09c92d1edec6385a9250535ca59b9dfcdddf68 (diff) | |
| download | drakx-97cc5b8af6b46368a766240c5c94c002bd58dce5.tar drakx-97cc5b8af6b46368a766240c5c94c002bd58dce5.tar.gz drakx-97cc5b8af6b46368a766240c5c94c002bd58dce5.tar.bz2 drakx-97cc5b8af6b46368a766240c5c94c002bd58dce5.tar.xz drakx-97cc5b8af6b46368a766240c5c94c002bd58dce5.zip | |
perl_checker fixes
| -rw-r--r-- | perl-install/network/network.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index fc3612be4..d85284b50 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -153,7 +153,7 @@ sub write_resolv_conf { } sub write_interface_conf { - my ($file, $intf, $netc, $prefix) = @_; + my ($file, $intf, $_netc, $prefix) = @_; if ($intf->{HWADDR} && -e "$prefix/sbin/ip") { $intf->{HWADDR} = undef; @@ -174,8 +174,6 @@ sub write_interface_conf { $intf->{BOOTPROTO} =~ s/dhcp.*/dhcp/; - require network::ethernet; - my %cards = map { $_->[0] => $_->[1] } network::ethernet::conf_network_card_backend($netc, $intf); setVarsInSh($file, $intf, qw(DEVICE BOOTPROTO IPADDR NETMASK NETWORK BROADCAST ONBOOT HWADDR MII_NOT_SUPPORTED), qw(WIRELESS_MODE WIRELESS_ESSID WIRELESS_NWID WIRELESS_FREQ WIRELESS_SENS WIRELESS_RATE WIRELESS_ENC_KEY WIRELESS_RTS WIRELESS_FRAG WIRELESS_IWCONFIG WIRELESS_IWSPY WIRELESS_IWPRIV), if_($intf->{BOOTPROTO} eq "dhcp", qw(DHCP_HOSTNAME NEEDHOSTNAME)) |