← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-886059-pt-heartbeat-timezones

« back to all changes in this revision

Viewing changes to bin/pt-archiver

  • Committer: Brian Fraser
  • Date: 2012-12-03 03:48:11 UTC
  • mto: This revision was merged to the branch mainline in revision 498.
  • Revision ID: brian.fraser@percona.com-20121203034811-1gih4cjkmm0tfjv8
Update modules for all tools using DSNParser

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-archiver
845
845
            $desc .= ".  Optional suffix s=seconds, m=minutes, h=hours, "
846
846
                   . "d=days; if no suffix, $s is used.";
847
847
         }
848
 
         $desc = join("\n$rpad", grep { $_ } $desc =~ m/(.{0,$rcol})(?:\s+|$)/g);
 
848
         $desc = join("\n$rpad", grep { $_ } $desc =~ m/(.{0,$rcol}(?!\W))(?:\s+|(?<=\W)|$)/g);
849
849
         $desc =~ s/ +$//mg;
850
850
         if ( $short ) {
851
851
            $usage .= sprintf("  --%-${maxs}s -%s  %s\n", $long, $short, $desc);
2199
2199
         die "Error getting the current SQL_MODE: $EVAL_ERROR";
2200
2200
      }
2201
2201
 
2202
 
      $sql = 'SET @@SQL_QUOTE_SHOW_CREATE = 1'
2203
 
            . '/*!40101, @@SQL_MODE=\'NO_AUTO_VALUE_ON_ZERO'
2204
 
            . ($sql_mode ? ",$sql_mode" : '')
2205
 
            . '\'*/';
2206
 
      PTDEBUG && _d($dbh, $sql);
2207
 
      eval { $dbh->do($sql) };
2208
 
      if ( $EVAL_ERROR ) {
2209
 
         die "Error setting SQL_QUOTE_SHOW_CREATE, SQL_MODE"
2210
 
           . ($sql_mode ? " and $sql_mode" : '')
2211
 
           . ": $EVAL_ERROR";
2212
 
      }
2213
 
 
2214
2202
      if ( my ($charset) = $cxn_string =~ m/charset=([\w]+)/ ) {
2215
2203
         $sql = qq{/*!40101 SET NAMES "$charset"*/};
2216
2204
         PTDEBUG && _d($dbh, ':', $sql);
2236
2224
            die "Error setting $var: $EVAL_ERROR";
2237
2225
         }
2238
2226
      }
 
2227
 
 
2228
      $sql = 'SET @@SQL_QUOTE_SHOW_CREATE = 1'
 
2229
            . '/*!40101, @@SQL_MODE=\'NO_AUTO_VALUE_ON_ZERO'
 
2230
            . ($sql_mode ? ",$sql_mode" : '')
 
2231
            . '\'*/';
 
2232
      PTDEBUG && _d($dbh, $sql);
 
2233
      eval { $dbh->do($sql) };
 
2234
      if ( $EVAL_ERROR ) {
 
2235
         die "Error setting SQL_QUOTE_SHOW_CREATE, SQL_MODE"
 
2236
           . ($sql_mode ? " and $sql_mode" : '')
 
2237
           . ": $EVAL_ERROR";
 
2238
      }
2239
2239
   }
2240
2240
 
2241
2241
   PTDEBUG && _d('DBH info: ',