From 0012406e404bb707b77e9d27013dbf58d568f1c7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 22 Jul 2003 17:47:46 +0000
Subject: fix fpons sucks (as usuall as he neither tests nor care about bug
 reports)

---
 perl-install/network/network.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 2b1f5c944..c50c58c5f 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -552,7 +552,10 @@ sub configureNetwork2 {
     $netc->{wireless_eth} and $in->do_pkgs->install(qw(wireless-tools));
     write_conf("$etc/sysconfig/network", $netc);
     write_resolv_conf("$etc/resolv.conf", $netc) if ! $netc->{DHCP};
-    write_interface_conf("$etc/sysconfig/network-scripts/ifcfg-$_->{DEVICE}", $_, $netc, $prefix) foreach grep { $_->{DEVICE} } values %$intf;
+    # network::ethernet->conf_network_card_backend() may pass "ethX (using module XYZ)" to conf_network_card_backend() that set DEVICE
+    my $raw_device = $_->{DEVICE};
+    $raw_device =~ s/\s\(using module.*\)//;
+    write_interface_conf("$etc/sysconfig/network-scripts/ifcfg-$raw_device", $_, $netc, $prefix) foreach grep { $raw_device } values %$intf;
     add2hosts("$etc/hosts", $netc->{HOSTNAME}, map { $_->{IPADDR} } values %$intf) if $netc->{HOSTNAME} && !$netc->{DHCP};
     add2hosts("$etc/hosts", "localhost", "127.0.0.1");
 
-- 
cgit v1.2.1