← Back to branch summary

~percona-toolkit-dev/percona-toolkit/pt-query-advisor-docs-2

« back to all changes in this revision

Viewing changes to bin/pt-table-sync

Merge fix-password-comma-bug-886077.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-table-sync
1172
1172
$Data::Dumper::Indent    = 0;
1173
1173
$Data::Dumper::Quotekeys = 0;
1174
1174
 
 
1175
my $dsn_sep = qr/(?<!\\),/;
 
1176
 
1175
1177
eval {
1176
1178
   require DBI;
1177
1179
};
1226
1228
   my %final_props;
1227
1229
   my $opts = $self->{opts};
1228
1230
 
1229
 
   foreach my $dsn_part ( split(/,/, $dsn) ) {
 
1231
   foreach my $dsn_part ( split($dsn_sep, $dsn) ) {
 
1232
      $dsn_part =~ s/\\,/,/g;
1230
1233
      if ( my ($prop_key, $prop_val) = $dsn_part =~  m/^(.)=(.*)$/ ) {
1231
1234
         $given_props{$prop_key} = $prop_val;
1232
1235
      }