diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-28 09:53:00 -0400 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-02-10 23:12:25 +0100 |
| commit | 22fad299b22f2986664722e5d0482944d9227105 (patch) | |
| tree | 2f7b6efd3e4eed3ebc965e308eb5cf06ad2667c4 | |
| parent | 4dc8684480aa0386905d331a1c79ee9c388d2b62 (diff) | |
| download | drakx-22fad299b22f2986664722e5d0482944d9227105.tar drakx-22fad299b22f2986664722e5d0482944d9227105.tar.gz drakx-22fad299b22f2986664722e5d0482944d9227105.tar.bz2 drakx-22fad299b22f2986664722e5d0482944d9227105.tar.xz drakx-22fad299b22f2986664722e5d0482944d9227105.zip | |
load_filer_modules: split it out
| -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; |