diff options
| -rw-r--r-- | perl-install/detect_devices.pm | 6 | ||||
| -rw-r--r-- | perl-install/harddrake/data.pm | 6 |
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, }, |