← Back to branch summary

~percona-toolkit-dev/percona-toolkit/release-2.2.3

« back to all changes in this revision

Viewing changes to lib/Cxn.pm

  • Committer: Daniel Nichter
  • Date: 2012-08-29 23:03:50 UTC
  • mfrom: (302.2.5 ptc-pxc)
  • Revision ID: daniel@percona.com-20120829230350-h60byt5xzw6glesk
Percona XtraDB support for pt-table-checksum.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Cxn.pm
107
107
      dbh_set      => 0,
108
108
      OptionParser => $o,
109
109
      DSNParser    => $dp,
 
110
      is_cluster_node => undef,
110
111
   };
111
112
 
112
113
   return bless $self, $class;
194
195
   return $self->{hostname} || $self->{dsn_name} || 'unknown host';
195
196
}
196
197
 
 
198
sub is_cluster_node {
 
199
   my ($self) = @_;
 
200
   return $self->{is_cluster_node} if defined $self->{is_cluster_node};
 
201
   
 
202
   my $sql = "SHOW VARIABLES LIKE 'wsrep_on'";
 
203
   PTDEBUG && _d($sql);
 
204
   my $row = $self->{dbh}->selectrow_arrayref($sql);
 
205
   PTDEBUG && _d(defined $row ? @$row : 'undef');
 
206
   $self->{is_cluster_node} = $row && $row->[0] ? 1 : 0;
 
207
  
 
208
   return $self->{is_cluster_node};
 
209
}
 
210
 
197
211
sub DESTROY {
198
212
   my ($self) = @_;
199
213
   if ( $self->{dbh}