diff options
| -rw-r--r-- | kernel/list_modules.pm | 20 | ||||
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rw-r--r-- | 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 |