typo
parent
4f22989be1
commit
c8d3626c51
|
@ -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}) {
|
||||||
|
|
|
@ -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];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -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();
|
||||||
|
|
Loading…
Reference in New Issue