summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-28 09:53:00 -0400
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-02-10 23:12:25 +0100
commit22fad299b22f2986664722e5d0482944d9227105 (patch)
tree2f7b6efd3e4eed3ebc965e308eb5cf06ad2667c4 /perl-install/modules.pm
parent4dc8684480aa0386905d331a1c79ee9c388d2b62 (diff)
downloaddrakx-22fad299b22f2986664722e5d0482944d9227105.tar
drakx-22fad299b22f2986664722e5d0482944d9227105.tar.gz
drakx-22fad299b22f2986664722e5d0482944d9227105.tar.bz2
drakx-22fad299b22f2986664722e5d0482944d9227105.tar.xz
drakx-22fad299b22f2986664722e5d0482944d9227105.zip
load_filer_modules: split it out
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm14
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;