From 6d5f92a475adcd72579387c22dfc85247f94221c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 27 Oct 2003 11:40:42 +0000
Subject: - make isdn detection more readable - ensure previously detected isdn
 stuff is cleared on redetection

---
 perl-install/network/isdn.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/network/isdn.pm')

diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 5d966d8a6..2e8177b37 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -247,7 +247,7 @@ sub isdn_detect {
 sub isdn_detect_backend {
     my ($isdn) = @_;
     if (my ($c) = modules::probe_category('network/isdn')) {
-  	$isdn->{$_} = $c->{$_} foreach qw(description vendor id driver options firmware);
+	$isdn = { map { $_ => $c->{$_} } qw(description vendor id driver card_type type) };
 	$isdn->{$_} = sprintf("%0x", $isdn->{$_}) foreach 'vendor', 'id';
 	$isdn->{card_type} = $c->{bus} eq 'USB' ? 'usb' : 'pci';
 	($isdn->{type}) = $isdn->{options} =~ /type=(\d+)/;
-- 
cgit v1.2.1