#i106558 fix methode is_active

cd2a15f6 · Kurt Zenker · 378acfdf · cd2a15f6
Kaydet (Commit) cd2a15f6 authored Kas 04, 2009 tarafından Kurt Zenker
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

SourceConfig.pm solenv/bin/modules/SourceConfig.pm +7 -1

No files found.
--- a/solenv/bin/modules/SourceConfig.pm
+++ b/solenv/bin/modules/SourceConfig.pm
@@ -151,7 +151,13 @@ sub is_active
 {
    my $self        = shift;
    my $module      = shift;
-    return exists ($self->{ACTIVE_MODULES}{$module});
+    $self -> get_module_paths() if (!scalar keys %{$self->{MODULE_PATHS}});
+    if (!scalar keys %{$self->{ACTIVE_MODULES}}) {
+        return exists ($self->{MODULE_PATHS}{$module});
+    }
+    else {
+        return exists ($self->{ACTIVE_MODULES}{$module});
+    }
 }
 ##### private methods #####