From c38c6b14952c25b51b1c0f9fa05aec2d34dc8ddf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 28 Feb 2000 21:23:35 +0000
Subject: no_comment

---
 perl-install/modules.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index c82cee6a1..734523fcb 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -379,6 +379,19 @@ sub load {
     }
     $conf{$name}{options} = join " ", @options if @options;
 }
+sub load_multi {
+    my $f; $f = sub { map { $f->(@{$deps{$_}}), $_ } @_ };
+    my %l; my @l = 
+      grep { !$conf{$_}{loaded} }
+      grep { my $o = $l{$_}; $l{$_} = 1; !$o }
+      $f->(@_);
+
+    $::testing and log::l("i would install modules @l"), return;
+
+    run_program::run("extract_archive", "/lib/modules.cz2", "/tmp", map { "$_.o" } @l);
+    run_program::run(["insmod_", "insmod"], "/tmp/$_.o") and $conf{$_}{loaded} = 1 foreach @l;
+    unlink map { "/tmp/$_.o" } @l;
+}
 
 sub unload($;$) {
     my ($m, $remove_alias) = @_; 
-- 
cgit v1.2.1