← Back to branch summary

~percona-core/percona-toolkit/release-2.2.8-v2

« back to all changes in this revision

Viewing changes to bin/pt-deadlock-logger

  • Committer: Daniel Nichter
  • Date: 2014-05-30 01:09:13 UTC
  • mfrom: (598.5.6 release-2.2.8)
  • Revision ID: daniel@percona.com-20140530010913-4wep0en37aa4vvok
Merge release-2.2.8.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-deadlock-logger
42
42
{
43
43
package Percona::Toolkit;
44
44
 
45
 
our $VERSION = '2.2.7';
 
45
our $VERSION = '2.2.8';
46
46
 
47
47
use strict;
48
48
use warnings FATAL => 'all';
4440
4440
 
4441
4441
   my $dst;
4442
4442
   if ( my $dst_dsn = $o->get('dest') ) {
 
4443
 
 
4444
      # set time_zone = SYSTEM , addresses https://bugs.launchpad.net/percona-toolkit/+bug/1295667
 
4445
      my $set_tz  = sub {
 
4446
         my ($dbh) = @_;
 
4447
         my $sql = "SET time_zone=SYSTEM /* pt-deadlock-logger */";
 
4448
         eval {
 
4449
            PTDEBUG && _d($dbh, $sql);
 
4450
            $dbh->do($sql);
 
4451
         };
 
4452
         if ( $EVAL_ERROR ) {
 
4453
            die "Failed to $sql: $EVAL_ERROR\n";   
 
4454
         }
 
4455
      };
 
4456
      
4443
4457
      $dst = Cxn->new(
4444
4458
         dsn          => $dst_dsn,
4445
4459
         prev_dsn     => ($src ? $src->dsn : undef),
4446
4460
         parent       => $o->get('daemonize'),
4447
4461
         DSNParser    => $dp,
4448
4462
         OptionParser => $o,
 
4463
         set          => $set_tz,
4449
4464
      );
4450
4465
   }
4451
4466
 
5199
5214
 
5200
5215
 CREATE TABLE deadlocks (
5201
5216
   server char(20) NOT NULL,
5202
 
   ts datetime NOT NULL,
 
5217
   ts timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
5203
5218
   thread int unsigned NOT NULL,
5204
5219
   txn_id bigint unsigned NOT NULL,
5205
5220
   txn_time smallint unsigned NOT NULL,