diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-02-19 11:52:59 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-02-19 11:52:59 +0000 |
| commit | 667a3a6fb737f1e842f479395d04d2a6e84b96f3 (patch) | |
| tree | 8fe6fb0d27cab0393a643ca24b9e14079af03bd8 /perl-install/modules.pm | |
| parent | 81dcd540fcf868caa0ca157c5f5ce02ae0aadc08 (diff) | |
| download | drakx-667a3a6fb737f1e842f479395d04d2a6e84b96f3.tar drakx-667a3a6fb737f1e842f479395d04d2a6e84b96f3.tar.gz drakx-667a3a6fb737f1e842f479395d04d2a6e84b96f3.tar.bz2 drakx-667a3a6fb737f1e842f479395d04d2a6e84b96f3.tar.xz drakx-667a3a6fb737f1e842f479395d04d2a6e84b96f3.zip | |
(load_raw) fix undefined variable after commit r688 by rtp on 2011-03-18
(was: "try to handle the built-in module case before trying to load a module")
Diffstat (limited to 'perl-install/modules.pm')
| -rw-r--r-- | perl-install/modules.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 866ca9e91..929780374 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -63,6 +63,8 @@ sub module_is_available { sub load_raw { my ($lm, $h_options) = @_; + my $l; + # try to detect built-in modules by looking at /sys/module # unfortunately it does not work for all modules eg : # - networks protocols like af_packet @@ -85,6 +87,7 @@ sub load_raw { @$l = (@$l, $mod); } } + if ($::testing || $::local_install) { log::l("i would load module $_ ($h_options->{$_})") foreach @$l; } elsif ($::isInstall) { |