From 22fad299b22f2986664722e5d0482944d9227105 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 28 May 2015 09:53:00 -0400
Subject: load_filer_modules: split it out

---
 perl-install/modules.pm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 6e448a916..abeb0b366 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -59,9 +59,9 @@ sub module_is_available {
 #-###############################################################################
 #- module loading
 #-###############################################################################
-# handles dependencies
-sub load_raw {
-    my ($lm, $h_options) = @_;
+
+sub filter_loaded_modules {
+    my ($lm) = @_;
 
     my $l;
 
@@ -87,6 +87,14 @@ sub load_raw {
 	  push @$l, $mod;
 	}
     }
+    $l;
+}
+
+# handles dependencies
+sub load_raw {
+    my ($lm, $h_options) = @_;
+
+    my $l = filter_loaded_modules($lm);
 
     if ($::testing || $::local_install) {
 	log::l("i would load module $_ ($h_options->{$_})") foreach @$l;
-- 
cgit v1.2.1