diff options
| author | damien <damien@mandriva.com> | 2002-03-05 14:50:21 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-03-05 14:50:21 +0000 |
| commit | eb18c0937adeb5471a3dada5bd8ef172fae93342 (patch) | |
| tree | af40ebd77417e7c08fc70b388fd35da6f0679c97 /perl-install | |
| parent | 0ff04167f4885ce422a4f00c0703654a1d8f8b13 (diff) | |
| download | drakx-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.pm | 11 |
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/; |