fix password not quoted
This commit is contained in:
parent
220de6e088
commit
cc21d62522
@ -586,7 +586,7 @@ sub printBlock {
|
|||||||
next if ($e->{$k} eq undef);
|
next if ($e->{$k} eq undef);
|
||||||
next if ($optdesc{$name}->{$k}->{'nosave'} eq 1);
|
next if ($optdesc{$name}->{$k}->{'nosave'} eq 1);
|
||||||
my $t = $optdesc{$name}->{$k}->{'type'};
|
my $t = $optdesc{$name}->{$k}->{'type'};
|
||||||
if ($t eq 's') {
|
if ($t eq 's' || $t eq 'p') {
|
||||||
$out .= $prefix . "\t$k = \"" . $e->{$k} . "\";\n";
|
$out .= $prefix . "\t$k = \"" . $e->{$k} . "\";\n";
|
||||||
} elsif (ref($e->{$k}) eq 'ARRAY') {
|
} elsif (ref($e->{$k}) eq 'ARRAY') {
|
||||||
foreach my $e2 (@{$e->{$k}}) {
|
foreach my $e2 (@{$e->{$k}}) {
|
||||||
|
Loading…
Reference in New Issue
Block a user