WL#4350 Options in my.cnf style config file should not start with --

This commit is contained in:
Magnus Svensson 2008-09-05 15:31:09 +02:00
parent ee1c00d97d
commit c11e919980
5 changed files with 20 additions and 10 deletions

View File

@ -27,6 +27,16 @@ sub value {
return $self->{value};
}
sub option {
my ($self)= @_;
my $name= $self->{name};
my $value= $self->{value};
my $opt= $name;
$opt= "$name=$value" if ($value);
$opt= "--$opt" unless ($opt =~ /^--/);
return $opt;
}
package My::Config::Group;

View File

@ -397,7 +397,7 @@ sub collect_one_suite($)
my $comb= {};
$comb->{name}= $group->name();
foreach my $option ( $group->options() ) {
push(@{$comb->{comb_opt}}, $option->name()."=".$option->value());
push(@{$comb->{comb_opt}}, $option->option());
}
push(@combinations, $comb);
}

View File

@ -1,8 +1,8 @@
[row]
--binlog-format=row
binlog-format=row
[stmt]
--binlog-format=statement
binlog-format=statement
[mix]
--binlog-format=mixed
binlog-format=mixed

View File

@ -1,8 +1,8 @@
[row]
--binlog-format=row
binlog-format=row
[stmt]
--binlog-format=statement
binlog-format=statement
[mix]
--binlog-format=mixed
binlog-format=mixed

View File

@ -1,8 +1,8 @@
[row]
--binlog-format=row
binlog-format=row
[stmt]
--binlog-format=statement
binlog-format=statement
[mix]
--binlog-format=mixed
binlog-format=mixed