diff options
| -rw-r--r-- | perl-install/modules.pm | 14 |
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; |