From e863a16c5313fa6711ca3b48d5f17dc4d5d4a8c0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Mar 2005 20:40:03 +0000
Subject: give ability to tell in which list_modules category is a module

---
 perl-install/install_steps.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'perl-install/install_steps.pm')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index caedbcdf3..333ff3525 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -625,6 +625,22 @@ sub updateModulesFromFloppy {
 	run_program::run("cd /floppy/$kernel_version ; find -type f | cpio -pdu $::prefix/lib/modules/$kernel_version");
 	run_program::rooted($::prefix, 'depmod', '-a', '-F', "/boot/System.map-$kernel_version", $kernel_version);
     }
+
+    my $category;
+    foreach (cat_('/floppy/to_load')) {
+	chomp;
+	if (/^#/) {
+	    ($category) = $1 if /\[list_modules: (.*?)\]/;
+	} elsif ($category) {
+	    log::l("adding $_ to $category\n");
+	    my $r = \%list_modules::l;
+	    $r = $r->{$_} foreach split('/', $category);
+	    push @$r, $_;
+
+	    $category = '';
+	}
+    }
+
     fs::umount("/floppy");
 }
 
-- 
cgit v1.2.1