From 7e4fd3d521ebfc8bf6b339b72e86bfdf40c3e0f5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 19 Feb 2012 11:52:59 +0000
Subject: (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")
---
 perl-install/modules.pm | 3 +++
 1 file changed, 3 insertions(+)

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) {
-- 
cgit v1.2.1