summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-03-24 14:29:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-03-24 14:29:56 +0000
commitf74c3b0afadaa40c9a784321029959a7fffdd0e6 (patch)
tree32777c65d09619bfde64fd85ce6f4ab161bddb23 /perl-install/modules.pm
parented76955e239d467e996ea3d20e8ae14c13db0253 (diff)
downloaddrakx-f74c3b0afadaa40c9a784321029959a7fffdd0e6.tar
drakx-f74c3b0afadaa40c9a784321029959a7fffdd0e6.tar.gz
drakx-f74c3b0afadaa40c9a784321029959a7fffdd0e6.tar.bz2
drakx-f74c3b0afadaa40c9a784321029959a7fffdd0e6.tar.xz
drakx-f74c3b0afadaa40c9a784321029959a7fffdd0e6.zip
no_comment
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 59276a3bf..38f9a6428 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -343,6 +343,10 @@ sub get_alias {
my ($alias) = @_;
$conf{$alias}{alias};
}
+sub get_options {
+ my ($name) = @_;
+ $conf{$name}{options};
+}
sub add_alias($$) {
my ($alias, $name) = @_;
@@ -415,7 +419,7 @@ sub unload($;$) {
sub load_raw($@) {
my ($name, @options) = @_;
- run_program::run("insmod", $name, @options) or die("insmod $name failed");
+ run_program::run("insmod", $name, grep { $_ } @options) or die("insmod $name failed");
#- this is a hack to make plip go
if ($name eq "parport_pc") {