summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-08-24 15:57:23 +0000
committerFrancois Pons <fpons@mandriva.com>2000-08-24 15:57:23 +0000
commit328ce33d9b48588abd507591d403ffcdf9612a93 (patch)
tree376572183d1ad3ac56718f5a21b08d721c7486f4 /perl-install/modules.pm
parentae6724e80a75c2e253daa9ded045c756f399e860 (diff)
downloaddrakx-328ce33d9b48588abd507591d403ffcdf9612a93.tar
drakx-328ce33d9b48588abd507591d403ffcdf9612a93.tar.gz
drakx-328ce33d9b48588abd507591d403ffcdf9612a93.tar.bz2
drakx-328ce33d9b48588abd507591d403ffcdf9612a93.tar.xz
drakx-328ce33d9b48588abd507591d403ffcdf9612a93.zip
*** empty log message ***
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index cdee937ee..c2075f453 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -372,9 +372,11 @@ sub load {
if ($::testing) {
log::l("i try to install $name module (@options)");
+ } elsif ($::live) {
+ return run_program::run("modprobe", $name, @options);
} else {
$conf{$name}{loaded} and return;
-
+
eval { load($_, 'prereq') } foreach @{$deps{$name}};
load_raw([ $name, @options ]);
}
@@ -413,7 +415,7 @@ sub unload {
sub load_raw {
my @l = map { my ($i, @i) = @$_; [ $i, \@i ] } grep { $_->[0] !~ /ignore/ } @_;
my $cz = "/lib/modules" . (arch() eq 'sparc64' && "64") . ".cz"; -e $cz or $cz .= "2";
- run_program::run("extract_archive", $cz, "/tmp", map { "$_->[0].o" } @l);
+ run_program::run("packdrake", "-x", $cz, "/tmp", map { "$_->[0].o" } @l);
my @failed = grep {
my $m = "/tmp/$_->[0].o";
if (-e $m && run_program::run(["insmod_", "insmod"], "-f", $m, @{$_->[1]})) {