← Back to branch summary

~percona-toolkit-dev/percona-toolkit/release-2.2.2

« back to all changes in this revision

Viewing changes to bin/pt-fk-error-logger

  • Committer: Brian Fraser
  • Date: 2013-04-19 23:26:48 UTC
  • Revision ID: brian.fraser@percona.com-20130419232648-mjnd4rt9k4xldmjc
Build percona-toolkit-2.2.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-fk-error-logger
36
36
# ###########################################################################
37
37
{
38
38
package Percona::Toolkit;
39
 
our $VERSION = '2.2.1';
 
39
our $VERSION = '2.2.2';
40
40
 
41
41
1;
42
42
}
1827
1827
   return $self->{hostname} || $self->{dsn_name} || 'unknown host';
1828
1828
}
1829
1829
 
 
1830
sub remove_duplicate_cxns {
 
1831
   my ($self, %args) = @_;
 
1832
   my @cxns     = @{$args{cxns}};
 
1833
   my $seen_ids = $args{seen_ids} || {};
 
1834
   PTDEBUG && _d("Removing duplicates from ", join(" ", map { $_->name } @cxns));
 
1835
   my @trimmed_cxns;
 
1836
 
 
1837
   for my $cxn ( @cxns ) {
 
1838
      my $dbh  = $cxn->dbh();
 
1839
      my $sql  = q{SELECT @@server_id};
 
1840
      PTDEBUG && _d($sql);
 
1841
      my ($id) = $dbh->selectrow_array($sql);
 
1842
      PTDEBUG && _d('Server ID for ', $cxn->name, ': ', $id);
 
1843
 
 
1844
      if ( ! $seen_ids->{$id}++ ) {
 
1845
         push @trimmed_cxns, $cxn
 
1846
      }
 
1847
      else {
 
1848
         PTDEBUG && _d("Removing ", $cxn->name,
 
1849
                       ", ID ", $id, ", because we've already seen it");
 
1850
      }
 
1851
   }
 
1852
 
 
1853
   return \@trimmed_cxns;
 
1854
}
 
1855
 
1830
1856
sub DESTROY {
1831
1857
   my ($self) = @_;
1832
1858
 
4445
4471
 
4446
4472
=head1 VERSION
4447
4473
 
4448
 
pt-fk-error-logger 2.2.1
 
4474
pt-fk-error-logger 2.2.2
4449
4475
 
4450
4476
=cut