← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-password-comma-bug-886077

« back to all changes in this revision

Viewing changes to lib/QueryReview.pm

  • Committer: Daniel Nichter
  • Date: 2012-02-07 20:10:11 UTC
  • mfrom: (174 2.0)
  • mto: This revision was merged to the branch mainline in revision 189.
  • Revision ID: daniel@percona.com-20120207201011-sok2c1f2ay9qr3gm
Merge trunk r174.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/QueryReview.pm
28
28
use strict;
29
29
use warnings FATAL => 'all';
30
30
use English qw(-no_match_vars);
31
 
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
 
31
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
32
32
 
33
33
Transformers->import(qw(make_checksum parse_timestamp));
34
34
 
82
82
            COALESCE(?, $now),
83
83
            GREATEST(last_seen, COALESCE(?, $now)))
84
84
      SQL
85
 
   MKDEBUG && _d('SQL to insert into review table:', $sql);
 
85
   PTDEBUG && _d('SQL to insert into review table:', $sql);
86
86
   my $insert_sth = $args{dbh}->prepare($sql);
87
87
 
88
88
   # The SELECT statement does not need to get the fingerprint, sample or
92
92
        . join(', ', map { $args{quoter}->quote($_) } @review_cols)
93
93
        . ", CONV(checksum, 10, 16) AS checksum_conv FROM $args{db_tbl}"
94
94
        . " WHERE checksum=CONV(?, 16, 10)";
95
 
   MKDEBUG && _d('SQL to select from review table:', $sql);
 
95
   PTDEBUG && _d('SQL to select from review table:', $sql);
96
96
   my $select_sth = $args{dbh}->prepare($sql);
97
97
 
98
98
   my $self = {
155
155
            ? "COALESCE(?, $self->{ts_default})"
156
156
            : '?'
157
157
        } @cols) . ')';
158
 
   MKDEBUG && _d($sql);
 
158
   PTDEBUG && _d($sql);
159
159
 
160
160
   $self->{history_sth}     = $args{dbh}->prepare($sql);
161
161
   $self->{history_metrics} = \@metrics;