diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-26 22:15:42 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-26 22:15:42 +0000 |
| commit | f29199945cb7381f137b5f62102e7fce67146a34 (patch) | |
| tree | 68054fe7d60e824efb46e447cc5496f3297708cc /perl-install | |
| parent | 339107572c06177bdfed627cb70d98eac72f31c1 (diff) | |
| download | drakx-f29199945cb7381f137b5f62102e7fce67146a34.tar drakx-f29199945cb7381f137b5f62102e7fce67146a34.tar.gz drakx-f29199945cb7381f137b5f62102e7fce67146a34.tar.bz2 drakx-f29199945cb7381f137b5f62102e7fce67146a34.tar.xz drakx-f29199945cb7381f137b5f62102e7fce67146a34.zip | |
cleanups
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/ethernet.pm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index b1b768652..ee74e16bb 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -15,12 +15,9 @@ use MDK::Common::Globals "network", qw($in); @ISA = qw(Exporter); @EXPORT = qw(conf_network_card_backend); -my (@cards, @ether_steps, $last, %last); - - -sub ether_conf{ - # my ($netcnx, $netc, $intf, $first_time) = @_; - my ($in, $_prefix, $netc, $intf) = @_; +# FIXME: unused code to merge in into wizard +sub ether_conf { + my ($in, $netcnx, $netc, $intf) = @_; configureNetwork2($in, $::prefix, $netc, $intf); $netc->{NETWORKING} = "yes"; if ($netc->{GATEWAY} || any { $_->{BOOTPROTO} =~ /dhcp/ } values %$intf) { @@ -43,7 +40,7 @@ qq( sub mapIntfToDevice { my ($interface) = @_; - my ($bus, $slot, $func) = map { hex($_) } (c::getHwIDs("eth0") =~ /([0-9a-f])+:([0-9a-f])+\.([0-9a-f]+)/); + my ($bus, $slot, $_func) = map { hex($_) } (c::getHwIDs("eth0") =~ /([0-9a-f])+:([0-9a-f])+\.([0-9a-f]+)/); grep { $_->{pci_bus} == $bus && $_->{pci_device} == $slot } detect_devices::probeall(); } |