diff options
| author | Kurt Zenker <kz@openoffice.org> | 2009-11-10 17:38:05 +0100 |
|---|---|---|
| committer | Kurt Zenker <kz@openoffice.org> | 2009-11-10 17:38:05 +0100 |
| commit | 23fb6b010df425307737208a462751c94179ea5c (patch) | |
| tree | f4f4a693cb92924cd71ce40118472291a92cbe8b /solenv/bin/modules/SourceConfig.pm | |
| parent | f68e2be0ed36a14bfbd6073be8a8b16aeca12515 (diff) | |
#i106558# optimizing methods get_active_modules and is_active
Diffstat (limited to 'solenv/bin/modules/SourceConfig.pm')
| -rw-r--r-- | solenv/bin/modules/SourceConfig.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/solenv/bin/modules/SourceConfig.pm b/solenv/bin/modules/SourceConfig.pm index 5189829e0c1c..7e646944a398 100644 --- a/solenv/bin/modules/SourceConfig.pm +++ b/solenv/bin/modules/SourceConfig.pm @@ -143,23 +143,22 @@ sub get_all_modules sub get_active_modules { my $self = shift; - $self -> get_module_paths() if (!scalar keys %{$self->{MODULE_PATHS}}); if (scalar keys %{$self->{ACTIVATED_MODULES}}) { return sort keys %{$self->{ACTIVATED_MODULES}}; - }; - return sort keys %{$self->{REAL_MODULES}}; + } + $self -> get_module_paths() if (!scalar keys %{$self->{MODULE_PATHS}}); + return sort keys %{$self->{REAL_MODULES}}; } sub is_active { my $self = shift; my $module = shift; - $self -> get_module_paths() if (!scalar keys %{$self->{MODULE_PATHS}} && !scalar keys %{$self->{ACTIVATED_MODULES}}); if (scalar keys %{$self->{ACTIVATED_MODULES}}) { return exists ($self->{ACTIVATED_MODULES}{$module}); - } else { - return exists ($self->{REAL_MODULES}{$module}); } + $self -> get_module_paths() if (!scalar keys %{$self->{MODULE_PATHS}}); + return exists ($self->{REAL_MODULES}{$module}); } ##### private methods ##### |