diff options
author | lloyd <[email protected]> | 2008-09-30 02:44:15 +0000 |
---|---|---|
committer | lloyd <[email protected]> | 2008-09-30 02:44:15 +0000 |
commit | d508120af2d5f8e94cf25343fdf2755d9309d266 (patch) | |
tree | d6bdff64e05433403526c53064ff5fe9e80a1370 | |
parent | 8b063a0b60946578ba16e8e7d8ee4223fadb5eb9 (diff) |
Also display non-enabled modules in configure output
-rwxr-xr-x | configure.pl | 28 |
1 files changed, 20 insertions, 8 deletions
diff --git a/configure.pl b/configure.pl index be797dfd6..0aa0d1d39 100755 --- a/configure.pl +++ b/configure.pl @@ -513,20 +513,32 @@ sub print_enabled_modules { my %by_type; - foreach my $mod (sort keys %{$$config{'modules'}}) { + foreach my $mod (sort keys %MODULES) { + my $type = $MODULES{$mod}{'type'}; - my $n = $$config{'modules'}{$mod}; + my $n = 0; + $n = 1 if($$config{'modules'}{$mod} && $$config{'modules'}{$mod} > 0); - if($n > 0) { - my $type = $MODULES{$mod}{'type'}; - $by_type{$type}{$mod} = $n; - } + $by_type{$type}{$mod} = $n; } for my $type (sort keys %by_type) { my %mods = %{$by_type{$type}}; - print with_diagnostic('loading', - $type . ': ' . join(' ', sort keys %mods)); + + my $s = $type . ': '; + + for my $mod (sort keys %mods) { + my $on = $mods{$mod}; + + if($on > 0) { + $s .= $mod . ' '; + } + else { + $s .= '[' . $mod . '] '; + } + } + + print with_diagnostic('loading', $s); } } |