percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-08 11:07:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merged fix-1022622-ptcd-case-sensitivity

Browse Source
This commit is contained in:
Brian Fraser
2012-12-11 11:45:29 -03:00
parent 2ff647df8f ac015477af
commit 0681986dee
4 changed files with 92 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
bin/pt-config-diff
View File

@@ -2470,6 +2470,9 @@ sub new {
value_is_optional => \%value_is_optional,
any_value_is_true => \%any_value_is_true,
base_path => \%base_path,
ignore_case => exists $args{ignore_case}
? $args{ignore_case}
: 1,
};
return bless $self, $class;
@@ -2496,6 +2499,7 @@ sub diff {
my $config0 = $configs->[0];
my $last_config = @$configs - 1;
my $vars = $self->_get_shared_vars(%args);
my $ignore_case = $self->{ignore_case};
my $diffs;
VARIABLE:
@@ -2520,7 +2524,9 @@ sub diff {
next CONFIG if $val0 == $valN;
}
else {
next CONFIG if $val0 eq $valN;
next CONFIG if $ignore_case
? lc($val0) eq lc($valN)
: $val0 eq $valN;
if ( $config0->format() ne $configN->format() ) {
if ( $any_value_is_true->{$var} ) {
@@ -4332,6 +4338,7 @@ sub main {
my $trp = new TextResultSetParser();
my $config_cmp = new MySQLConfigComparer(
ignore_variables => $o->get('ignore-variables'),
ignore_case => $o->get('ignore-case'),
);
my %common_modules = (
DSNParser => $dp,
@@ -4574,6 +4581,12 @@ L<"SYNOPSIS"> and usage information for details.
Prompt for a password when connecting to MySQL.
=item --[no]ignore-case
default: yes
Compare the variables case-insensitively.
=item --charset
short form: -A; type: string