Changeset 3254 in MondoRescue for branches/3.2/MondoRescue/lib/MondoRescue/Kernel.pm

Timestamp:

Feb 27, 2014, 3:48:29 AM (10 years ago)

Author:

Bruno Cornec

Message:

• Removes duplicate log in mindi
• Plan for a log of live modules vs extra modules

File:

• branches/3.2/MondoRescue/lib/MondoRescue/Kernel.pm (modified) (3 diffs)

branches/3.2/MondoRescue/lib/MondoRescue/Kernel.pm

@@ -83 +83 @@
 my %modlist;
 my $void = "";
+my @alllivemodules;
 my @allmodpaths;
 my $modulepath = "";
@@ -88 +89 @@
 #print Dumper(@allmodules);
 
-# If no module names list passed as parameter, the work on all modules of the system
+# First compute the list of "live" modules - run on the system
+open(LSMOD, "cat /proc/modules |") or die "Unable to launch lsmod";
+while (<LSMOD>) {
+    next if (/^Module/);
+    ($module, $void) = split(/ /);
+    print "***$module***|***$void***\n";
+    push @alllivemodules,$module;
+}
+close(LSMOD);
+
+# If no module name list passed as parameter, then work on all modules of the system
 if (not defined $allmodules[0]) {
-    open(LSMOD, "/sbin/lsmod |") or die "Unable to launch lsmod";
-    while (<LSMOD>) {
-        next if (/^Module/);
-        ($module, $void) = split(/ /);
-        print "***$module***|***$void***\n";
-        push @allmodules,$module;
-    }
-    close(LSMOD);
+    @allmodules = @alllivemodules;
 }
 #print Dumper(@allmodules);
 
+# Now computes the dependencies of each module and store them in %modlist
 open(DEPMOD, "/sbin/depmod -n $ver |") or die "Unable to launch depmod";
 while (<DEPMOD>) {
@@ -119 +124 @@
 my $modpath;
 
+# Analyze each module to find its full path name
 foreach my $m (@allmodules) {
     pb_log(1,"Analyzing $m\n");