blob: 2af5ce951a03a4e244f74ffa5d357c281489ecc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
package modules::parameters; # $Id$
use diagnostics;
use strict;
#-######################################################################################
#- misc imports
#-######################################################################################
use common;
use modules;
sub parameters {
my ($module) = @_;
if (!$::isStandalone && !$::testing) {
($module) = modules::extract_modules('/tmp', $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;
|
