From 6c3307d3ffe6d35da0930c6fbe43eabdf5c43a9c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 14 Feb 2004 02:54:41 +0000 Subject: (isdn_detect_backend) try harder to detect ISDN devices --- perl-install/network/isdn.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 153233b58..ed78f2841 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -196,6 +196,7 @@ If you have a PCMCIA card, you have to know the \"irq\" and \"io\" of your card. sub isdn_detect_backend() { my $isdn = { }; + require detect_devices; each_index { my $c = $_; $isdn->{$::i} = { map { $_ => $c->{$_} } qw(description vendor id driver card_type type) }; @@ -210,7 +211,7 @@ sub isdn_detect_backend() { modules::set_options($c->{driver}, $c->{options} . " protocol=" . $isdn->{protocol}); } $c->{options} =~ /protocol=(\d)/ and $isdn->{protocol} = $1; - } modules::probe_category('network/isdn'); + } modules::probe_category('network/isdn'), grep { $_->{driver} =~ /^ISDN:/ } detect_devices::probeall(); $isdn; } -- cgit v1.2.1