summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-03-05 14:50:21 +0000
committerdamien <damien@mandriva.com>2002-03-05 14:50:21 +0000
commiteb18c0937adeb5471a3dada5bd8ef172fae93342 (patch)
treeaf40ebd77417e7c08fc70b388fd35da6f0679c97 /perl-install
parent0ff04167f4885ce422a4f00c0703654a1d8f8b13 (diff)
downloaddrakx-eb18c0937adeb5471a3dada5bd8ef172fae93342.tar
drakx-eb18c0937adeb5471a3dada5bd8ef172fae93342.tar.gz
drakx-eb18c0937adeb5471a3dada5bd8ef172fae93342.tar.bz2
drakx-eb18c0937adeb5471a3dada5bd8ef172fae93342.tar.xz
drakx-eb18c0937adeb5471a3dada5bd8ef172fae93342.zip
gzipped modules handled
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modparm.pm11
1 files changed, 8 insertions, 3 deletions
diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm
index a30afe425..fe8c335b0 100644
--- a/perl-install/modparm.pm
+++ b/perl-install/modparm.pm
@@ -2,6 +2,7 @@ package modparm; # $Id$
use diagnostics;
use strict;
+use modules;
#-######################################################################################
#- misc imports
@@ -23,10 +24,14 @@ sub get_options_name($) {
my ($module) = @_;
my @names;
- $modinfo = '/sbin/modinfo';
- -e $modinfo or $modinfo = '/usr/bin/modinfo';
+ $modinfo = $::isStandalone ? '/sbin/modinfo' : '/usr/bin/modinfo';
-e $modinfo or die _('modinfo is not available');
- my @line = `$modinfo -p $module`;
+ if($::isStandalone) {
+ my @line = `$modinfo -p $module`;
+ } else {
+ modules::extract_modules('/tmp', $module);
+ my @line = `$modinfo -p /tmp/$module.o`;
+ }
foreach (@line) {
chomp;
s/int/: (integer/;