summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm6
-rw-r--r--perl-install/harddrake/data.pm6
2 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index d293ba47a..c0a07f0c3 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -699,6 +699,12 @@ sub firewire_probe() {
@l;
}
+sub pcmcia_controller_probe() {
+ require list_modules;
+ my @modules = list_modules::category2modules('bus/pcmcia');
+ grep { member($_->{driver}, @modules) } probeall();
+}
+
sub real_pcmcia_probe() {
return if $::testing;
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index d45486270..a17b77535 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -317,11 +317,7 @@ our @tree =
string => N("PCMCIA controllers"),
icon => "scsi.png",
configurator => "",
- detector => sub {
- require list_modules;
- my @modules = list_modules::category2modules('bus/pcmcia');
- f(grep { member($_->{driver}, @modules) } @devices);
- },
+ detector => sub { f(detect_devices::pcmcia_controller_probe()) },
checked_on_boot => 1,
},