perl-install/modules/parameters.pm


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: parameters.pm 27168 2006-05-12 14:23:03Z pixel $

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;