From eb18c0937adeb5471a3dada5bd8ef172fae93342 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Tue, 5 Mar 2002 14:50:21 +0000
Subject: gzipped modules handled

---
 perl-install/modparm.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'perl-install/modparm.pm')

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/;
-- 
cgit v1.2.1