diff options
| -rw-r--r-- | kernel/list_modules.pm | 10 |
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; } |