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;