From 0471cac15682c28185430409b9b6f918eec1f43e Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 21 Aug 2007 16:50:03 +0000 Subject: merge category2modules_raw and category2modules (the first being unused) --- kernel/list_modules.pm | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'kernel') 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; } -- cgit v1.2.1