Change --version-check to --[no]version-check, update POD text and how version_check() is called.

This commit is contained in:
Daniel Nichter
2013-02-13 16:06:31 -07:00
parent d023c90e8e
commit 07810ca867
19 changed files with 324 additions and 460 deletions

View File

@@ -5408,9 +5408,6 @@ sub main {
if ( $bulk_del && $limit < 2 ) { if ( $bulk_del && $limit < 2 ) {
$o->save_error("--bulk-delete is meaningless with --limit 1"); $o->save_error("--bulk-delete is meaningless with --limit 1");
} }
VersionCheck::validate_options($o);
} }
if ( $bulk_del || $o->get('bulk-insert') ) { if ( $bulk_del || $o->get('bulk-insert') ) {
@@ -5808,13 +5805,12 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ instances => [
{ dbh => $src->{dbh}, dsn => $src->{dsn} }, { dbh => $src->{dbh}, dsn => $src->{dsn} },
( $dst ? { dbh => $dst->{dbh}, dsn => $dst->{dsn} } : () ), ( $dst ? { dbh => $dst->{dbh}, dsn => $dst->{dsn} } : () ),
], ],
protocol => $o->get('version-check'),
); );
} }
@@ -7284,30 +7280,25 @@ User for login if not current user.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=item --where =item --where

View File

@@ -4991,7 +4991,6 @@ sub main {
if ( @ARGV < 1 ) { if ( @ARGV < 1 ) {
$o->save_error("Specify at least one file or DSN on the command line"); $o->save_error("Specify at least one file or DSN on the command line");
} }
VersionCheck::validate_options($o);
} }
$o->usage_or_errors(); $o->usage_or_errors();
@@ -5067,10 +5066,9 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ map({ +{ dbh => $_->dbh, dsn => $_->dsn } } @cxn) ], instances => [ map({ +{ dbh => $_->dbh, dsn => $_->dsn } } @cxn) ],
protocol => $o->get('version-check'),
); );
} }
@@ -5358,30 +5356,25 @@ MySQL user if not current user.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -3978,8 +3978,6 @@ sub main {
$o->save_error("--dest requires a 't' (table) part"); $o->save_error("--dest requires a 't' (table) part");
} }
VersionCheck::validate_options($o);
# Avoid running forever with zero second interval. # Avoid running forever with zero second interval.
if ( $o->get('run-time') && !$o->get('interval') ) { if ( $o->get('run-time') && !$o->get('interval') ) {
$o->set('interval', 1); $o->set('interval', 1);
@@ -4049,13 +4047,12 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ instances => [
{ dbh => $dbh, dsn => $source_dsn }, { dbh => $dbh, dsn => $source_dsn },
($dest_dsn ? { dbh => $dest_dsn, dsn => $dest_dsn } : ()), ($dest_dsn ? { dbh => $dest_dsn, dsn => $dest_dsn } : ()),
], ],
protocol => $o->get('version-check'),
); );
} }
@@ -4748,30 +4745,25 @@ User for login if not current user.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -4803,7 +4803,6 @@ sub main {
if ( !$o->get('columns-regex') ) { if ( !$o->get('columns-regex') ) {
$o->save_error("A regex pattern for --column-regex must be specified"); $o->save_error("A regex pattern for --column-regex must be specified");
} }
VersionCheck::validate_options($o);
} }
$o->usage_or_errors(); $o->usage_or_errors();
@@ -4811,8 +4810,8 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check(protocol => $o->get('version-check')); VersionCheck::version_check();
} }
# ######################################################################## # ########################################################################
@@ -5401,30 +5400,25 @@ aggregated into one line, the first timestamp is shown.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -4668,7 +4668,6 @@ sub main {
my $dp = $o->DSNParser(); my $dp = $o->DSNParser();
$dp->prop('set-vars', $o->get('set-vars')); $dp->prop('set-vars', $o->get('set-vars'));
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
@@ -4699,10 +4698,9 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ {dbh => $dbh, dsn => $dsn} ], instances => [ {dbh => $dbh, dsn => $dsn} ],
protocol => $o->get('version-check'),
); );
} }
@@ -5204,30 +5202,25 @@ Output all keys and/or foreign keys found, not just redundant ones.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -3739,8 +3739,6 @@ sub main {
$o->save_error("--server-id regex doesn't capture digits with (\\d+)"); $o->save_error("--server-id regex doesn't capture digits with (\\d+)");
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
# Interpolate strings for printf and exec. At the same time discover whether # Interpolate strings for printf and exec. At the same time discover whether
@@ -3840,10 +3838,9 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [{dbh => $dbh, dsn => $dsn}], instances => [ { dbh => $dbh, dsn => $dsn } ],
protocol => $o->get('version-check'),
); );
} }
@@ -4294,30 +4291,25 @@ User for login if not current user.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -3437,8 +3437,6 @@ sub main {
if ( $dst_dsn && !$dst_dsn->{t} ) { if ( $dst_dsn && !$dst_dsn->{t} ) {
$o->save_error("--dest requires a 't' (table) part"); $o->save_error("--dest requires a 't' (table) part");
} }
VersionCheck::validate_options($o);
} }
$o->usage_or_errors(); $o->usage_or_errors();
@@ -3499,13 +3497,12 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ instances => [
{ dbh => $dbh, dsn => $src_dsn }, { dbh => $dbh, dsn => $src_dsn },
($dst_dbh ? { dbh => $dst_dbh, dsn => $dst_dsn } : ()) ($dst_dbh ? { dbh => $dst_dbh, dsn => $dst_dsn } : ())
], ],
protocol => $o->get('version-check'),
); );
} }
@@ -3797,30 +3794,25 @@ User for login if not current user.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -4692,8 +4692,6 @@ sub main {
$o->save_error("Invalid --recursion-method: $EVAL_ERROR") $o->save_error("Invalid --recursion-method: $EVAL_ERROR")
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
# ######################################################################## # ########################################################################
@@ -5071,10 +5069,9 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ {dbh => $dbh, dsn => $dsn} ], instances => [ { dbh => $dbh, dsn => $dsn } ],
protocol => $o->get('version-check'),
); );
} }
@@ -5828,30 +5825,25 @@ is running on a system that uses UTC).
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -6135,8 +6135,6 @@ sub main {
. "--save-results-database DSN"); . "--save-results-database DSN");
} }
} }
VersionCheck::validate_options($o);
} }
$o->usage_or_errors(); $o->usage_or_errors();
@@ -6280,13 +6278,12 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ instances => [
{ dbh => $dbh, dsn => $dsn }, { dbh => $dbh, dsn => $dsn },
($res_dbh ? { dbh => $res_dbh, dsn => $res_dsn } : ()) ($res_dbh ? { dbh => $res_dbh, dsn => $res_dsn } : ())
], ],
protocol => $o->get('version-check'),
); );
} }
@@ -7199,30 +7196,25 @@ User for login if not current user.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -6371,8 +6371,6 @@ sub main {
$o->save_error("Invalid value for --victims: $victims"); $o->save_error("Invalid value for --victims: $victims");
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
# ######################################################################## # ########################################################################
@@ -6653,10 +6651,9 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ ($dbh ? { dbh => $dbh, dsn => $cxn->dsn() } : ()) ], instances => [ ($dbh ? { dbh => $dbh, dsn => $cxn->dsn() } : ()) ],
protocol => $o->get('version-check'),
); );
} }
@@ -7385,30 +7382,25 @@ User for login if not current user.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=item --victims =item --victims

View File

@@ -7968,8 +7968,6 @@ sub main {
$o->save_error("Invalid --recursion-method: $EVAL_ERROR") $o->save_error("Invalid --recursion-method: $EVAL_ERROR")
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
if ( $o->get('quiet') ) { if ( $o->get('quiet') ) {
@@ -8257,11 +8255,14 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ map({ +{ dbh => $_->dbh(), dsn => $_->dsn() } } instances => [
$cxn, ($slaves ? @$slaves : ())) ], map (
protocol => $o->get('version-check'), { +{ dbh => $_->dbh(), dsn => $_->dsn() } }
$cxn, ($slaves ? @$slaves : ())
)
],
); );
} }
@@ -10965,30 +10966,25 @@ User for login if not current user.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -8098,8 +8098,6 @@ sub main {
$o->save_error("Invalid --group-by value. Valid values are: " $o->save_error("Invalid --group-by value. Valid values are: "
. "rule_id, query_id, none"); . "rule_id, query_id, none");
} }
VersionCheck::validate_options($o);
} }
$o->usage_or_errors(); $o->usage_or_errors();
@@ -8429,13 +8427,12 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ instances => [
($review_dbh ? { dbh => $review_dbh, dsn => $review_dsn } : ()), ($review_dbh ? { dbh => $review_dbh, dsn => $review_dsn } : ()),
($dbh ? { dbh => $dbh, dsn => $dsn } : ()), ($dbh ? { dbh => $dbh, dsn => $dsn } : ()),
], ],
protocol => $o->get('version-check'),
); );
} }
@@ -9206,30 +9203,25 @@ L<"--report-format">.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=item --where =item --where

View File

@@ -13812,8 +13812,6 @@ sub main {
$o->save_error($EVAL_ERROR); $o->save_error($EVAL_ERROR);
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
# ######################################################################## # ########################################################################
@@ -14901,13 +14899,12 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ instances => [
($qv_dbh ? { dbh => $qv_dbh, dsn => $review_dsn } : ()), ($qv_dbh ? { dbh => $qv_dbh, dsn => $review_dsn } : ()),
($ps_dbh ? { dbh => $ps_dbh, dsn => $ps_dsn } : ()), ($ps_dbh ? { dbh => $ps_dbh, dsn => $ps_dsn } : ()),
], ],
protocol => $o->get('version-check'),
); );
} }
@@ -17096,30 +17093,25 @@ distinct checksums are treated as equal.
Show version and exit. Show version and exit.
=item --version-check tem --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=item --watch-server =item --watch-server

View File

@@ -4029,8 +4029,6 @@ sub main {
$o->set('run-time', max($o->get('run-time'), 1)); $o->set('run-time', max($o->get('run-time'), 1));
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
# ####################################################################### # #######################################################################
@@ -4084,19 +4082,22 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
my $tmp_master_dsn = $master_dsn my $tmp_master_dsn
? $master_dsn = $master_dsn ? $master_dsn
: { h => $status->{master_host}, P => $status->{master_port} }; : {h=>$status->{master_host}, P=>$status->{master_port}};
VersionCheck::version_check( VersionCheck::version_check(
instances => [ instances => [
{ dbh => $slave_dbh, dsn => $slave_dsn }, { dbh => $slave_dbh, dsn => $slave_dsn },
{ dbh => $master_dbh, dsn => $tmp_master_dsn } { dbh => $master_dbh, dsn => $tmp_master_dsn }
], ],
protocol => $o->get('version-check'),
); );
} }
# ########################################################################
# Main loop
# ########################################################################
# If the I/O thread isn't running when the program starts, # If the I/O thread isn't running when the program starts,
# it never knows what to do. So start it. # it never knows what to do. So start it.
$slave_dbh->do('START SLAVE IO_THREAD'); $slave_dbh->do('START SLAVE IO_THREAD');
@@ -4568,30 +4569,25 @@ User for login if not current user.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -4665,8 +4665,6 @@ sub main {
$o->save_error("Invalid --recursion-method: $EVAL_ERROR") $o->save_error("Invalid --recursion-method: $EVAL_ERROR")
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
# ######################################################################## # ########################################################################
@@ -4771,14 +4769,15 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ { dbh => $dbh, dsn => $dsn }, @servers_to_watch ], instances => [ { dbh => $dbh, dsn => $dsn }, @servers_to_watch ],
protocol => $o->get('version-check'),
); );
} }
# ########################################################################
# Watch each server found. # Watch each server found.
# ########################################################################
my $must_fork = @servers_to_watch > 1; my $must_fork = @servers_to_watch > 1;
foreach my $host ( @servers_to_watch ) { foreach my $host ( @servers_to_watch ) {
@@ -5483,30 +5482,25 @@ the current sleep time each time pt-slave-restart sleeps.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back

View File

@@ -8648,8 +8648,6 @@ sub main {
$o->save_error("Invalid --recursion-method: $EVAL_ERROR") $o->save_error("Invalid --recursion-method: $EVAL_ERROR")
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
# ######################################################################## # ########################################################################
@@ -9236,13 +9234,12 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ instances => [
{ dbh => $master_dbh, dsn => $master_dsn }, { dbh => $master_dbh, dsn => $master_dsn },
map({ +{ dbh => $_->dbh(), dsn => $_->dsn() } } @$slaves) map({ +{ dbh => $_->dbh(), dsn => $_->dsn() } } @$slaves)
], ],
protocol => $o->get('version-check'),
); );
} }
@@ -11844,30 +11841,25 @@ group: Help
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=item --where =item --where

View File

@@ -9575,8 +9575,6 @@ sub main {
$o->save_error("Invalid --recursion-method: $EVAL_ERROR") $o->save_error("Invalid --recursion-method: $EVAL_ERROR")
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
# ######################################################################## # ########################################################################
@@ -9668,31 +9666,29 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
# This tool has way too many dbhs and doesn't use Cxn, so we have to # This tool has way too many dbhs and doesn't use Cxn, so we have to
# manually disconnect them else they'll throw a warning. Also, it # manually disconnect them else they'll throw a warning. Also, it
# creates some dbh late, so here we need to create a dbh and then # creates some dbh late, so here we need to create a dbh and then
# disconnect it only if we created it, i.e. don't disconnect the few # disconnect it only if we created it, i.e. don't disconnect the few
# dbh created early by the tool. # dbh created early by the tool.
my @vc_dbhs; if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
my @instances = map { my @vc_dbhs;
my $dsn = $_; my @instances = map {
my $dbh = $dsn->{dbh}; my $dsn = $_;
if ( !$dbh ) { my $dbh = $dsn->{dbh};
$dbh = get_cxn($dsn, %modules); if ( !$dbh ) {
push @vc_dbhs, $dbh; # disconnect this dbh after version check $dbh = get_cxn($dsn, %modules);
} push @vc_dbhs, $dbh; # disconnect this dbh after version check
+{ dbh => $dbh, dsn => $dsn } }
} @dsns; +{ dbh => $dbh, dsn => $dsn }
} @dsns;
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [@instances], instances => \@instances,
protocol => $o->get('version-check'),
); );
}
map { $_->disconnect } @vc_dbhs; # disconnect dbh created for version check map { $_->disconnect } @vc_dbhs;
}
# ######################################################################## # ########################################################################
# Sync! # Sync!
@@ -12248,30 +12244,25 @@ See L<"OUTPUT"> for more details about the output.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=item --wait =item --wait

View File

@@ -12340,8 +12340,6 @@ sub main {
$o->save_error('Specify at least one host DSN'); $o->save_error('Specify at least one host DSN');
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
if ( $o->get('explain-hosts') ) { if ( $o->get('explain-hosts') ) {
@@ -12603,11 +12601,14 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
&& (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ map({ +{ dbh => $_->{dbh}, dsn => $_->{dsn} } } @$hosts) ], instances => [
protocol => $o->get('version-check'), map(
{ +{ dbh => $_->{dbh}, dsn => $_->{dsn} } }
@$hosts
)
],
); );
} }
@@ -13579,30 +13580,25 @@ User for login if not current user.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=item --zero-query-times =item --zero-query-times

View File

@@ -4929,8 +4929,6 @@ sub main {
} }
} }
VersionCheck::validate_options($o);
$o->usage_or_errors(); $o->usage_or_errors();
# ######################################################################### # #########################################################################
@@ -5005,10 +5003,9 @@ sub main {
# ######################################################################## # ########################################################################
# Do the version-check # Do the version-check
# ######################################################################## # ########################################################################
if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) { if ( $o->get('version-check') && (!$o->has('quiet') || !$o->get('quiet')) ) {
VersionCheck::version_check( VersionCheck::version_check(
instances => [ ($dbh ? { dbh => $dbh, dsn => $dsn } : ()) ], instances => [ ($dbh ? { dbh => $dbh, dsn => $dsn } : ()) ],
protocol => $o->get('version-check'),
); );
} }
@@ -5835,30 +5832,25 @@ higher levels, the program prints more of the description.
Show version and exit. Show version and exit.
=item --version-check =item --[no]version-check
type: string; default: off default: yes
Send program versions to Percona and print suggested upgrades and problems. Check for the latest version of Percona Toolkit, MySQL, and other programs.
Possible values for --version-check:
=for comment ignore-pt-internal-value This is a standard "check for updates automatically" feature, with two
MAGIC_version_check additional features. First, the tool checks the version of other programs
on the local system in addition to its own version. For example, it checks
the version of every MySQL server it connects to, Perl, and the Perl module
DBD::mysql. Second, it checks for and warns about versions with known
problems. For example, MySQL 5.5.25 had a critical bug and was re-released
as 5.5.25a.
https, http, auto, off Any updates or known problems are printed to STDOUT before the tool's normal
output. This feature should never interfere with the normal operation of the
tool.
C<auto> first tries using C<https>, and resorts to C<http> if that fails. For more information, visit L<https://www.percona.com/version-check>.
Keep in mind that C<https> might not be available if
C<IO::Socket::SSL> is not installed on your system, although
C<--version-check http> should work everywhere.
The version check feature causes the tool to send and receive data from
Percona over the web. The data contains program versions from the local
machine. Percona uses the data to focus development on the most widely
used versions of programs, and to suggest to customers possible upgrades
and known bad versions of programs.
For more information, visit L<http://www.percona.com/version-check>.
=back =back