load_filer_modules: split it out

1 files changed, 11 insertions, 3 deletions

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;