From f3aca7f00cfd07bedd6836c957bdcba75132d9d2 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 9 Feb 2004 16:58:59 +0000
Subject: (mapIntfToDevice) fix pci/usb ethernet devices matching

---
 perl-install/network/ethernet.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 7f05db43d..b550c6fc9 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -38,7 +38,7 @@ qq(
 
 sub mapIntfToDevice {
     my ($interface) = @_;
-    my ($bus, $slot, $_func) = map { hex($_) } (c::getHwIDs($interface) =~ /([0-9a-f])+:([0-9a-f])+\.([0-9a-f]+)/);
+    my ($bus, $slot, $_func) = map { hex($_) } (c::getHwIDs($interface) =~ /([0-9a-f]+):([0-9a-f]+)\.([0-9a-f]+)/);
     grep { $_->{pci_bus} == $bus && $_->{pci_device} == $slot } detect_devices::probeall();
 }
 
-- 
cgit v1.2.1