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 | 7e4fd3d521ebfc8bf6b339b72e86bfdf40c3e0f5 (patch) | |
tree | 8fe6fb0d27cab0393a643ca24b9e14079af03bd8 | |
parent | 3033e6be04cf7745e69046c68acc6a82df0dac3f (diff) | |
download | drakx-backup-do-not-use-7e4fd3d521ebfc8bf6b339b72e86bfdf40c3e0f5.tar drakx-backup-do-not-use-7e4fd3d521ebfc8bf6b339b72e86bfdf40c3e0f5.tar.gz drakx-backup-do-not-use-7e4fd3d521ebfc8bf6b339b72e86bfdf40c3e0f5.tar.bz2 drakx-backup-do-not-use-7e4fd3d521ebfc8bf6b339b72e86bfdf40c3e0f5.tar.xz drakx-backup-do-not-use-7e4fd3d521ebfc8bf6b339b72e86bfdf40c3e0f5.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")
-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) { |