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

Add $ENV{PERCONA_VERSION_CHECK}=0 to PerconaTest so tests don't version-check. Implement v-c in half the tools. Make util/update-modules clean up its temp files.

Browse Source
This commit is contained in:
Daniel Nichter
2012-08-21 16:15:44 -06:00
parent a95aa2b3bc
commit ee583ba729
14 changed files with 127 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3049,7 +3049,8 @@ Transformers->import(qw(parse_timestamp));
my $oktorun;
sub main {
@ARGV = @_; # set global ARGV for this package
local @ARGV = @_; # set global ARGV for this package
$oktorun = 1;
# ########################################################################
# Get configuration information.
@@ -3125,7 +3126,9 @@ sub main {
$ins_sth = $dst_dbh->prepare($sql);
}
# ########################################################################
# Daemonize only after (potentially) asking for passwords for --ask-pass.
# ########################################################################
my $daemon;
if ( $o->get('daemonize') ) {
$daemon = new Daemon(o=>$o);
@@ -3138,7 +3141,17 @@ sub main {
$daemon->make_PID_file();
}
$oktorun = 1;
# ########################################################################
# Do the version-check
# ########################################################################
if ( $o->get('version-check') && ($o->has('quiet') && !$o->get('quiet')) ) {
Pingback::version_check($dbh);
return 0 if $ENV{PTVCDEBUG} && PTDEBUG;
}
# ########################################################################
# Start finding and logging foreign key errors.
# ########################################################################
while ( # Quit if:
($start == $end || $now < $end) # time is exceeded
&& $oktorun # or instructed to quit