From 849cc5d7781b9fbb1d80ffebaf0709be197130b2 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Thu, 22 Apr 2004 15:44:31 +0000
Subject: fix 'somewhat' broken isdn type and driver name fetching from
 pcitable (this is no paper-bag)

---
 perl-install/modules.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 6095dd3ab..51bab5cae 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -141,11 +141,10 @@ sub probe_category {
 	if ($category eq 'network/isdn') {
 	    my $b = $_->{driver} =~ /ISDN:([^,]*),?([^,]*)(?:,firmware=(.*))?/;
 	    if ($b) {
-		($_->{type}) = $_->{driver} =~ /type=(\d+)/;
-		$_->{driver} = $1;
-		$_->{options} = $2;
-		$_->{firmware} = $3;
-		$_->{driver} eq "hisax" and $_->{options} .= " id=HiSax";
+                $_->{driver} = $1;
+                $_->{firmware} = $3;
+                ($_->{type}) = $2 =~ /type=(\d+)/;
+                $_->{driver} eq "hisax" and $_->{options} .= " id=HiSax";
 	    }
 	    $b;
 	} else {
-- 
cgit v1.2.1