~percona-core/percona-toolkit/release-2.2.8-v2

Merge fix-pqd-stats-bug-1249149

added added

removed removed

1342

# certainly include in all tools, but otherwise there's no real reason to put

1343

# it here.

1344

if ( PTDEBUG ) {

1345

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

1345

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

1346

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

1347

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

1348

print "# $uname\n";

1348

print STDERR "# $uname\n";

1349

}

1350

print '# Arguments: ',

1350

print STDERR '# Arguments: ',

1351

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

1352

}

1353