summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/harddrake/data.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 1368e5dba..620f6a082 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -295,7 +295,11 @@ our @tree =
string => N("SATA controllers"),
icon => "ide_hd.png",
configurator => "",
- detector => sub { f(grep { $_->{driver} =~ /^sata/ } @devices) },
+ detector => sub {
+ require list_modules;
+ my @modules = list_modules::category2modules('disk/sata');
+ f(grep { member($_->{driver}, @modules) } @devices);
+ },
checked_on_boot => 1,
},