From 328ce33d9b48588abd507591d403ffcdf9612a93 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 24 Aug 2000 15:57:23 +0000
Subject: *** empty log message ***

---
 perl-install/modules.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

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]})) {
-- 
cgit v1.2.1