← Back to branch summary

~percona-toolkit-dev/percona-toolkit/pxc-pt-slave-find-tests

« back to all changes in this revision

Viewing changes to lib/Quoter.pm

Merge pt-osc-data-loss-bug-1068562

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Quoter.pm
93
93
#   <join_quote>
94
94
sub split_unquote {
95
95
   my ( $self, $db_tbl, $default_db ) = @_;
96
 
   $db_tbl =~ s/`//g;
97
96
   my ( $db, $tbl ) = split(/[.]/, $db_tbl);
98
97
   if ( !$tbl ) {
99
98
      $tbl = $db;
100
99
      $db  = $default_db;
101
100
   }
 
101
   for ($db, $tbl) {
 
102
      next unless $_;
 
103
      s/\A`//;
 
104
      s/`\z//;
 
105
      s/``/`/;
 
106
   }
 
107
   
102
108
   return ($db, $tbl);
103
109
}
104
110