summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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;