diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-16 01:59:53 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-16 01:59:53 +0000 |
| commit | a601b24141811e50d946f27ad05194593c487754 (patch) | |
| tree | 53001515b4658ba8319546a124bc37ec039c6b76 /perl-install/modules.pm | |
| parent | 2f218cdfc7aeabb3babcbc49ecd9ca9b082cf6a8 (diff) | |
| download | drakx-a601b24141811e50d946f27ad05194593c487754.tar drakx-a601b24141811e50d946f27ad05194593c487754.tar.gz drakx-a601b24141811e50d946f27ad05194593c487754.tar.bz2 drakx-a601b24141811e50d946f27ad05194593c487754.tar.xz drakx-a601b24141811e50d946f27ad05194593c487754.zip | |
add load_with_options()
Diffstat (limited to 'perl-install/modules.pm')
| -rw-r--r-- | perl-install/modules.pm | 15 |
1 files changed, 10 insertions, 5 deletions
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' ]) |