diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2004-04-22 15:44:31 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2004-04-22 15:44:31 +0000 |
| commit | 849cc5d7781b9fbb1d80ffebaf0709be197130b2 (patch) | |
| tree | 888e2504dbc8e124caeb9e4b766df1434ae15420 /perl-install | |
| parent | 12f94a380466ec3a55d20cdef129b87ef9f2e2c4 (diff) | |
| download | drakx-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.pm | 9 |
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 { |