summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-02-19 11:52:59 +0000
committerThierry Vignaud <tv@mageia.org>2012-02-19 11:52:59 +0000
commit667a3a6fb737f1e842f479395d04d2a6e84b96f3 (patch)
tree8fe6fb0d27cab0393a643ca24b9e14079af03bd8 /perl-install
parent81dcd540fcf868caa0ca157c5f5ce02ae0aadc08 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/modules.pm3
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) {