1 files changed, 13 insertions, 0 deletions
diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config
index f9b796fc9..4f53ba420 100755
--- a/perl-install/standalone/bootloader-config
+++ b/perl-install/standalone/bootloader-config
@@ -134,6 +134,8 @@ sub remove_kernel() {
 
 #-###############################################################################
 sub add_kernel() {
+    configure_ide_controller();
+    exit;
     bootloader::create_link_source();
 
     my $kernel_str = bootloader::vmlinuz2kernel_str($image) or die "bad kernel name $image\n";
@@ -164,6 +166,17 @@ sub add_kernel() {
     modify_bootloader();
 }
 
+sub configure_ide_controller {
+    my $modules_conf = modules::any_conf->read;
+    if ($modules_conf->get_alias('ide-controller') || 
+        $modules_conf->get_probeall('ide-controller')) {
+	#- already configured
+    } elsif (my @l = detect_devices::probe_category('disk/ide')) {
+	$modules_conf->add_probeall('ide-controller', $_->{driver}) foreach @l;
+	$modules_conf->write;
+    }
+}
+
 sub modify_bootloader() {
     !$no_entry or return;