percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-28 08:51:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

Failing test case.

Browse Source
This commit is contained in:
Daniel Nichter
2012-10-31 13:16:25 -06:00
parent 9b6f10480c
commit 0453d7dd82
4 changed files with 49 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
bin/pt-show-grants
View File

@@ -1636,10 +1636,16 @@ sub _d {
# ###########################################################################
package pt_show_grants;
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
use Data::Dumper;
$Data::Dumper::Quotekeys = 0;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
sub main {
@ARGV = @_; # set global ARGV for this package
@@ -1757,6 +1763,7 @@ sub main {
PTDEBUG && _d($EVAL_ERROR);
$exit_status = 1;
}
PTDEBUG && _d('Grants:', Dumper(\@grants));
next unless @grants;
if ( $o->get('separate') ) { # List each grant separately.
@@ -1894,7 +1901,7 @@ pt-show-grants - Canonicalize and print MySQL grants so you can effectively repl
=head1 SYNOPSIS
Usage: pt-show-grants [OPTION...] [DSN]
Usage: pt-show-grants [OPTIONS] [DSN]
pt-show-grants shows grants (user privileges) from a MySQL server.