From a601b24141811e50d946f27ad05194593c487754 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 16 Aug 2004 01:59:53 +0000
Subject: add load_with_options()

---
 perl-install/modules.pm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 31792b6e0..b33617a41 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -67,15 +67,20 @@ sub load_raw {
     }
     sleep 2 if any { /^(usb-storage|mousedev|printer)$/ } @$l;
 }
-sub load {
-    my (@l) = @_;
-    @l = map {
+sub load_with_options {
+    my ($l, $h_options) = @_;
+
+    my @l = map {
 	dependencies_closure(cond_mapping_24_26($_));
-    } @l;
+    } @$l;
 
     @l = remove_loaded_modules(@l) or return;
 
-    load_raw(\@l, {});
+    load_raw(\@l, $h_options);
+}
+sub load {
+    my (@l) = @_;
+    load_with_options(\@l, {});
 }
 
 # eg: load_and_configure($modules_conf, 'vfat', 'reiserfs', [ ne2k => 'io=0xXXX', 'dma=5' ])
-- 
cgit v1.2.1