From 638383c19d18925c737f41f2d228758e191d3bd9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 17 Feb 2003 12:23:21 +0000
Subject: add module2description()

---
 perl-install/modules.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index b852c7e8e..8eba4b8d5 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -11,11 +11,17 @@ use list_modules;
 
 %conf = ();
 
-sub category2modules_and_description {
-    my ($categories) = @_;
+sub modules_descriptions {
     my $f = '/lib/modules/' . c::kernel_version() . '/modules.description';
     -e $f or $f = '/lib/modules.description';
-    my %modules_descriptions = map { /(\S+)\s+(.*)/ } cat_($f);
+    map { /(\S+)\s+(.*)/ } cat_($f);
+}
+
+sub module2description { +{ modules_descriptions() }->{$_[0]} }
+
+sub category2modules_and_description {
+    my ($categories) = @_;
+    my %modules_descriptions = modules_descriptions();
     map { $_ => $modules_descriptions{$_} } category2modules($categories);
 }
 
-- 
cgit v1.2.1