summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2004-04-22 15:44:31 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2004-04-22 15:44:31 +0000
commit849cc5d7781b9fbb1d80ffebaf0709be197130b2 (patch)
tree888e2504dbc8e124caeb9e4b766df1434ae15420 /perl-install
parent12f94a380466ec3a55d20cdef129b87ef9f2e2c4 (diff)
downloaddrakx-849cc5d7781b9fbb1d80ffebaf0709be197130b2.tar
drakx-849cc5d7781b9fbb1d80ffebaf0709be197130b2.tar.gz
drakx-849cc5d7781b9fbb1d80ffebaf0709be197130b2.tar.bz2
drakx-849cc5d7781b9fbb1d80ffebaf0709be197130b2.tar.xz
drakx-849cc5d7781b9fbb1d80ffebaf0709be197130b2.zip
fix 'somewhat' broken isdn type and driver name fetching from pcitable
(this is no paper-bag)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules.pm9
1 files changed, 4 insertions, 5 deletions
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 {