~percona-toolkit-dev/percona-toolkit/use-local-mysql-versions-for-testing

Merge fix-pqd-stats-bug-1249149

added added

removed removed

2136

}

2137

2138

if ( PTDEBUG ) {

2139

print '# ', $^X, ' ', $], "\n";

2139

print STDERR '# ', $^X, ' ', $], "\n";

2140

if ( my $uname = `uname -a` ) {

2141

$uname =~ s/\s+/ /g;

2142

print "# $uname\n";

2142

print STDERR "# $uname\n";

2143

}

2144

print '# Arguments: ',

2144

print STDERR '# Arguments: ',

2145

join(' ', map { my $a = "_[$_]_"; $a =~ s/\n/\n# /g; $a; } @ARGV), "\n";

2146

}

2147