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

Update OptionParser in all tools.

Browse Source
This commit is contained in:
Daniel Nichter
2013-11-07 17:47:46 -08:00
parent 1732e7712a
commit a40d34c579
26 changed files with 78 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bin/pt-agent
View File

@@ -3612,12 +3612,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-align
View File

@@ -1077,12 +1077,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-archiver
View File

@@ -1804,12 +1804,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-config-diff
View File

@@ -1804,12 +1804,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-deadlock-logger
View File

@@ -1154,12 +1154,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-diskstats
View File

@@ -1150,12 +1150,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-duplicate-key-checker
View File

@@ -2136,12 +2136,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-fifo-split
View File

@@ -1078,12 +1078,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-find
View File

@@ -1570,12 +1570,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-fingerprint
View File

@@ -1079,12 +1079,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-fk-error-logger
View File

@@ -1149,12 +1149,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-heartbeat
View File

@@ -1886,12 +1886,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-index-usage
View File

@@ -1731,12 +1731,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-kill
View File

@@ -1159,12 +1159,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-online-schema-change
View File

@@ -1166,12 +1166,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-query-digest
View File

@@ -2399,12 +2399,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-show-grants
View File

@@ -1079,12 +1079,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-slave-delay
View File

@@ -1152,12 +1152,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-slave-find
View File

@@ -1087,12 +1087,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-slave-restart
View File

@@ -1304,12 +1304,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-table-checksum
View File

@@ -2833,12 +2833,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-table-sync
View File

@@ -1167,12 +1167,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-table-usage
View File

@@ -1516,12 +1516,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-upgrade
View File

@@ -2396,12 +2396,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-variable-advisor
View File

@@ -1156,12 +1156,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}

6
bin/pt-visual-explain
View File

@@ -1753,12 +1753,12 @@ sub _d {
}
if ( PTDEBUG ) {
print '# ', $^X, ' ', $], "\n";
print STDERR '# ', $^X, ' ', $], "\n";
if ( my $uname = `uname -a` ) {
$uname =~ s/\s+/ /g;
print "# $uname\n";
print STDERR "# $uname\n";
}
print '# Arguments: ',
print STDERR '# Arguments: ',
join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";
}