summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2007-08-21 16:50:03 +0000
committerOlivier Blin <oblin@mandriva.com>2007-08-21 16:50:03 +0000
commit0471cac15682c28185430409b9b6f918eec1f43e (patch)
tree6bcebd6a475068ca137b431b184e3ff85d968b09
parent16be1114b00d8141283c4ac9210c0a5ebe6c7d95 (diff)
downloaddrakx-0471cac15682c28185430409b9b6f918eec1f43e.tar
drakx-0471cac15682c28185430409b9b6f918eec1f43e.tar.gz
drakx-0471cac15682c28185430409b9b6f918eec1f43e.tar.bz2
drakx-0471cac15682c28185430409b9b6f918eec1f43e.tar.xz
drakx-0471cac15682c28185430409b9b6f918eec1f43e.zip
merge category2modules_raw and category2modules (the first being unused)
-rw-r--r--kernel/list_modules.pm10
1 files changed, 2 insertions, 8 deletions
diff --git a/kernel/list_modules.pm b/kernel/list_modules.pm
index 25022d95e..39d58a144 100644
--- a/kernel/list_modules.pm
+++ b/kernel/list_modules.pm
@@ -314,23 +314,17 @@ sub modname2filename {
$filenames{$_[0]};
}
-#- give module filenames, with '-' characters
-sub category2modules_raw {
+sub category2modules {
map {
my ($t1, $t2s) = m|(.*)/(.*)|;
my @sub = $t2s eq '*' ? keys %{$l{$t1}} : split('\|', $t2s);
map {
my $l = $l{$t1}{$_} or die "bad category $t1/$_\n" . backtrace();
- @$l;
+ map { filename2modname($_) } @$l;
} @sub;
} split(' ', $_[0]);
}
-#- give driver names, with '_' characters
-sub category2modules {
- map { filename2modname($_) } category2modules_raw(@_);
-}
-
sub all_modules() {
map { @$_ } map { values %$_ } values %l;
}