From cdcd978381f091594ae7d4fd1cbb2976301cf03c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 3 Oct 2007 22:16:35 +0000
Subject: add helper to get kernel module path (to be used in draklive)

---
 kernel/list_modules.pm    | 20 +++++++++++++++-----
 perl-install/NEWS         |  2 ++
 perl-install/install/NEWS |  2 ++
 3 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/kernel/list_modules.pm b/kernel/list_modules.pm
index e9d5d3965..b5359c6f6 100644
--- a/kernel/list_modules.pm
+++ b/kernel/list_modules.pm
@@ -287,13 +287,18 @@ sub load_dependencies {
 
     %moddeps = ();
     foreach (cat_($file)) {
-	s![^ ]*/!!g;
-	s!\.ko!!g;
-	s!\.gz!!g;
-	my ($filename, $d) = split ':';
-	my ($modname, @deps) = map { filename2modname($_) } $filename, split(' ', $d);
+	my ($m, $d) = split ':';
+	my $path = $m;
+	my ($filename, @fdeps) = map {
+	    s![^ ]*/!!g;
+	    s!\.ko!!g;
+	    s!\.gz!!g;
+	    $_;
+	} $m, split(' ', $d);
+	my ($modname, @deps) = map { filename2modname($_) } $filename, @fdeps;
 	$moddeps{$modname}{deps} = \@deps;
 	$moddeps{$modname}{filename} = $filename;
+ 	$moddeps{$modname}{path} = $path;
     }
 }
 
@@ -318,6 +323,11 @@ sub modname2filename {
     $moddeps{$_[0]}{filename};
 }
 
+sub modname2path {
+    load_default_moddeps() if !%moddeps;
+    $moddeps{$_[0]}{path};
+}
+
 sub category2modules {
     map {
 	my ($t1, $t2s) = m|(.*)/(.*)|;
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 39e5f1179..5da1b4e5d 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- add helper to get kernel module path (to be used in draklive)
+
 Version 10.4.231 - 3 October 2007, by Nicolas Vigier
 
 - wizards :
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index d3d970743..58ed36039 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- add helper to get kernel module path (to be used in draklive)
+
 Version 10.4.228 - 3 October 2007, by Pascal "Pixel" Rigaux
 
 - use /dev/cdrom in fstab, and write corresponding udev rule
-- 
cgit v1.2.1