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

Update OptionParser in all tools.

added added

removed removed

1154

}

1155

1156

if ( PTDEBUG ) {

1157

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

1157

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

1158

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

1159

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

1160

print "# $uname\n";

1160

print STDERR "# $uname\n";

1161

}

1162

print '# Arguments: ',

1162

print STDERR '# Arguments: ',

1163

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

1164

}

1165