/perl-install/

a id='n67' href='#n67'>67 68 69 70 71 72 73 
package modparm; # $Id$

use diagnostics;
use strict;

#-######################################################################################
#- misc imports
#-######################################################################################
use common;
use modules;


sub raw_parameters {
  my ($module) = @_;

  my $modinfo = '/sbin/modinfo';
  -x $modinfo or $modinfo = '/usr/bin/modinfo';
  -x $modinfo or die _('modinfo is not available');

  if (!$::isStandalone && !$::testing) {
      modules::extract_modules('/tmp', $module);
      $module = "/tmp/$module.o";
  }

  my @parameters;
  foreach (common::join_lines(`$modinfo -p $module`)) {
      chomp;
      next if /^warning:/;