master
Joey Hess 2008-08-05 19:30:09 -04:00
parent 4f22989be1
commit c8d3626c51
3 changed files with 9 additions and 2 deletions

View File

@ -1045,7 +1045,7 @@ sub preprocess ($$$;$$) { #{{{
my $params=shift; my $params=shift;
$params="" if ! defined $params; $params="" if ! defined $params;
f (length $escape) { if (length $escape) {
return "[[$prefix$command $params]]"; return "[[$prefix$command $params]]";
} }
elsif (exists $hooks{preprocess}{$command}) { elsif (exists $hooks{preprocess}{$command}) {

View File

@ -349,7 +349,10 @@ sub showform ($$) { #{{{
next; next;
} }
print STDERR "on $key\n";
if (ref $config{$key} eq "ARRAY" || ref $info{example} eq "ARRAY") { if (ref $config{$key} eq "ARRAY" || ref $info{example} eq "ARRAY") {
print STDERR "$key is array\n";
@value=sort grep { length $_ } @value; @value=sort grep { length $_ } @value;
my @oldvalue=sort grep { length $_ } my @oldvalue=sort grep { length $_ }
(defined $config{$key} ? @{$config{$key}} : ()); (defined $config{$key} ? @{$config{$key}} : ());
@ -365,16 +368,20 @@ sub showform ($$) { #{{{
} }
else { else {
if (defined $config{$key} && $config{$key} eq $value[0]) { if (defined $config{$key} && $config{$key} eq $value[0]) {
print STDERR "$key SET SAME ($config{$key})\n";
delete $rebuild{$field}; delete $rebuild{$field};
} }
elsif (! defined $config{$key} && ! length $value[0]) { elsif (! defined $config{$key} && ! length $value[0]) {
print STDERR "$key UNDEF and unset\n";
delete $rebuild{$field}; delete $rebuild{$field};
} }
elsif ((! defined $config{$key} || ! $config{$key}) && elsif ((! defined $config{$key} || ! $config{$key}) &&
! $value[0] && $info{type} eq "boolean") { ! $value[0] && $info{type} eq "boolean") {
print STDERR "omitting false $key\n";
delete $rebuild{$field}; delete $rebuild{$field};
} }
else { else {
print STDERR "for $key : $value[0] vs $config{$key}; type: $info{type}\n";
$config{$key}=$value[0]; $config{$key}=$value[0];
} }
} }

View File

@ -132,7 +132,7 @@ sub main () { #{{{
foreach my $wrapper (@wrappers) { foreach my $wrapper (@wrappers) {
%config=(%origconfig, %config=(%origconfig,
rebuild => 0, rebuild => 0,
verbose => 0, verbose => undef,
%{$wrapper}, %{$wrapper},
); );
checkconfig(); checkconfig();