From bb715ccb40387957e6500422961ebcb7a4da13d7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 23 Apr 2004 09:52:22 +0000
Subject: (probe_category) perl_checker cleanup

---
 perl-install/modules.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1