summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-04-23 09:52:22 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-04-23 09:52:22 +0000
commitbb715ccb40387957e6500422961ebcb7a4da13d7 (patch)
treebd397f9dbc739a847e33ad365a31849a6ec9fe0d
parent7c589b73957e7d1a04b1058fd9983a78940dd731 (diff)
downloaddrakx-bb715ccb40387957e6500422961ebcb7a4da13d7.tar
drakx-bb715ccb40387957e6500422961ebcb7a4da13d7.tar.gz
drakx-bb715ccb40387957e6500422961ebcb7a4da13d7.tar.bz2
drakx-bb715ccb40387957e6500422961ebcb7a4da13d7.tar.xz
drakx-bb715ccb40387957e6500422961ebcb7a4da13d7.zip
(probe_category) perl_checker cleanup
-rw-r--r--perl-install/modules.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 3b5494220..8686eaa9c 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -142,8 +142,9 @@ sub probe_category {
my $b = $_->{driver} =~ /ISDN:([^,]*),?([^,]*)(?:,firmware=(.*))?/;
if ($b) {
$_->{driver} = $1;
+ $_->{type} = $2;
+ $_->{type} =~ s/type=//;
$_->{firmware} = $3;
- ($_->{type}) = $2 =~ /type=(\d+)/;
$_->{driver} eq "hisax" and $_->{options} .= " id=HiSax";
}
$b;