diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-08 08:54:49 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-08 08:54:49 +0000 |
| commit | 3fc1e32932e52fea115b1ed530c732ab2de965dc (patch) | |
| tree | 4f1f8da883bf7d19a3bd9e0c8812440c56762542 /perl-install | |
| parent | dfe9b6a59c35f115831a70a354e76573fda21d86 (diff) | |
| download | drakx-3fc1e32932e52fea115b1ed530c732ab2de965dc.tar drakx-3fc1e32932e52fea115b1ed530c732ab2de965dc.tar.gz drakx-3fc1e32932e52fea115b1ed530c732ab2de965dc.tar.bz2 drakx-3fc1e32932e52fea115b1ed530c732ab2de965dc.tar.xz drakx-3fc1e32932e52fea115b1ed530c732ab2de965dc.zip | |
(isdn_detect_backend) enhance detection: just return a list of devices
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/isdn.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 20c4ceb32..037968629 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -195,12 +195,11 @@ If you have a PCMCIA card, you have to know the \"irq\" and \"io\" of your card. } sub isdn_detect_backend() { - my $isdn = { }; + my @isdn; require detect_devices; each_index { my $c = $_; - $isdn->{$::i} = { map { $_ => $c->{$_} } qw(description vendor id driver card_type type) }; - my $isdn = $isdn->{$::i}; + my $isdn = { map { $_ => $c->{$_} } qw(description vendor id driver card_type type) }; $isdn->{intf_id} = $::i; $isdn->{$_} = sprintf("%0x", $isdn->{$_}) foreach 'vendor', 'id'; $isdn->{card_type} = $c->{bus} eq 'USB' ? 'usb' : 'pci'; @@ -211,8 +210,9 @@ sub isdn_detect_backend() { modules::set_options($c->{driver}, $c->{options} . " protocol=" . $isdn->{protocol}); } $c->{options} =~ /protocol=(\d)/ and $isdn->{protocol} = $1; + push @isdn, $isdn; } modules::probe_category('network/isdn'); - $isdn; + \@isdn; } sub isdn_get_list() { |