← 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-show-grants

  • 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-show-grants
817
817
            $desc .= ".  Optional suffix s=seconds, m=minutes, h=hours, "
818
818
                   . "d=days; if no suffix, $s is used.";
819
819
         }
820
 
         $desc = join("\n$rpad", grep { $_ } $desc =~ m/(.{0,$rcol})(?:\s+|$)/g);
 
820
         $desc = join("\n$rpad", grep { $_ } $desc =~ m/(.{0,$rcol}(?!\W))(?:\s+|(?<=\W)|$)/g);
821
821
         $desc =~ s/ +$//mg;
822
822
         if ( $short ) {
823
823
            $usage .= sprintf("  --%-${maxs}s -%s  %s\n", $long, $short, $desc);
1309
1309
         die "Error getting the current SQL_MODE: $EVAL_ERROR";
1310
1310
      }
1311
1311
 
1312
 
      $sql = 'SET @@SQL_QUOTE_SHOW_CREATE = 1'
1313
 
            . '/*!40101, @@SQL_MODE=\'NO_AUTO_VALUE_ON_ZERO'
1314
 
            . ($sql_mode ? ",$sql_mode" : '')
1315
 
            . '\'*/';
1316
 
      PTDEBUG && _d($dbh, $sql);
1317
 
      eval { $dbh->do($sql) };
1318
 
      if ( $EVAL_ERROR ) {
1319
 
         die "Error setting SQL_QUOTE_SHOW_CREATE, SQL_MODE"
1320
 
           . ($sql_mode ? " and $sql_mode" : '')
1321
 
           . ": $EVAL_ERROR";
1322
 
      }
1323
 
 
1324
1312
      if ( my ($charset) = $cxn_string =~ m/charset=([\w]+)/ ) {
1325
1313
         $sql = qq{/*!40101 SET NAMES "$charset"*/};
1326
1314
         PTDEBUG && _d($dbh, ':', $sql);
1346
1334
            die "Error setting $var: $EVAL_ERROR";
1347
1335
         }
1348
1336
      }
 
1337
 
 
1338
      $sql = 'SET @@SQL_QUOTE_SHOW_CREATE = 1'
 
1339
            . '/*!40101, @@SQL_MODE=\'NO_AUTO_VALUE_ON_ZERO'
 
1340
            . ($sql_mode ? ",$sql_mode" : '')
 
1341
            . '\'*/';
 
1342
      PTDEBUG && _d($dbh, $sql);
 
1343
      eval { $dbh->do($sql) };
 
1344
      if ( $EVAL_ERROR ) {
 
1345
         die "Error setting SQL_QUOTE_SHOW_CREATE, SQL_MODE"
 
1346
           . ($sql_mode ? " and $sql_mode" : '')
 
1347
           . ": $EVAL_ERROR";
 
1348
      }
1349
1349
   }
1350
1350
 
1351
1351
   PTDEBUG && _d('DBH info: ',