blob: 36990b5d105393ab26163368a89fbc2d2c24b675 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
package modules::parameters;
use diagnostics;
use strict;
#-######################################################################################
#- misc imports
#-######################################################################################
use common;
use modules;
sub parameters {
my ($module) = @_;
map {
chomp;
(my $name, $_) = /(\w+):(.*)/s or warn "modules::parameters::parameters($module): unknown line\n";
[ $name, $_ ];
} common::join_lines(run_program::get_stdout('modinfo', '-p', $module));
}
1;
|