===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
percona-toolkit-3.2.1/bin/pt-ioprofile-487- local pid="$$"
percona-toolkit-3.2.1/bin/pt-ioprofile:488: PT_TMPDIR=`mktemp -d -t "${tool}.${pid}.XXXXXX"` \
percona-toolkit-3.2.1/bin/pt-ioprofile-489- || die "Cannot make secure tmpdir"
##############################################
percona-toolkit-3.2.1/bin/pt-mext-79- local pid="$$"
percona-toolkit-3.2.1/bin/pt-mext:80: PT_TMPDIR=`mktemp -d -t "${tool}.${pid}.XXXXXX"` \
percona-toolkit-3.2.1/bin/pt-mext-81- || die "Cannot make secure tmpdir"
##############################################
percona-toolkit-3.2.1/bin/pt-mext-589-# Count how many files there are and prepare to format the output, but...
percona-toolkit-3.2.1/bin/pt-mext:590:NUM=`ls "$FILE"* | wc -l`;
percona-toolkit-3.2.1/bin/pt-mext-591-
##############################################
percona-toolkit-3.2.1/bin/pt-mext-597-# spec and awk spec at the same time.
percona-toolkit-3.2.1/bin/pt-mext:598:for i in `_seq $NUM`; do
percona-toolkit-3.2.1/bin/pt-mext-599- NEXTFILE=$(($i + 1))
##############################################
percona-toolkit-3.2.1/bin/pt-mext-612- # wide to make the columns
percona-toolkit-3.2.1/bin/pt-mext:613: MAXLEN=`awk '{print $2}' "$FILE${NEXTFILE}" | grep -v '[^0-9]' | awk '{print length($1)}' | sort -rns | head -n1`
percona-toolkit-3.2.1/bin/pt-mext-614- mv "$FILE" "$FILE${NEXTFILE}"
##############################################
percona-toolkit-3.2.1/bin/pt-mext-635- if [ "$OPT_RELATIVE" ]; then
percona-toolkit-3.2.1/bin/pt-mext:636: AWKS="$AWKS, \$`expr $i + 2` - \$`expr $i + 1`";
percona-toolkit-3.2.1/bin/pt-mext-637- else
##############################################
percona-toolkit-3.2.1/bin/pt-mext-643-AWKCMD="printf(\"$SPEC\n\", \$1, \$2$AWKS);";
percona-toolkit-3.2.1/bin/pt-mext:644:awk "{$AWKCMD}" "$FILE`expr $NUM + 1`"
percona-toolkit-3.2.1/bin/pt-mext-645-
##############################################
percona-toolkit-3.2.1/bin/pt-mysql-summary-551- local pid="$$"
percona-toolkit-3.2.1/bin/pt-mysql-summary:552: PT_TMPDIR=`mktemp -d -t "${tool}.${pid}.XXXXXX"` \
percona-toolkit-3.2.1/bin/pt-mysql-summary-553- || die "Cannot make secure tmpdir"
##############################################
percona-toolkit-3.2.1/bin/pt-pmp-81- local pid="$$"
percona-toolkit-3.2.1/bin/pt-pmp:82: PT_TMPDIR=`mktemp -d -t "${tool}.${pid}.XXXXXX"` \
percona-toolkit-3.2.1/bin/pt-pmp-83- || die "Cannot make secure tmpdir"
##############################################
percona-toolkit-3.2.1/bin/pt-sift-79- local pid="$$"
percona-toolkit-3.2.1/bin/pt-sift:80: PT_TMPDIR=`mktemp -d -t "${tool}.${pid}.XXXXXX"` \
percona-toolkit-3.2.1/bin/pt-sift-81- || die "Cannot make secure tmpdir"
##############################################
percona-toolkit-3.2.1/bin/pt-sift-561- BASEDIR="$(dirname "$1")"
percona-toolkit-3.2.1/bin/pt-sift:562: PREFIX="$(echo "$1" | perl -ne '$_ =~ m/([\d_]+)/; print $1;')"
percona-toolkit-3.2.1/bin/pt-sift-563- else
##############################################
percona-toolkit-3.2.1/bin/pt-stalk-597- local pid="$$"
percona-toolkit-3.2.1/bin/pt-stalk:598: PT_TMPDIR=`mktemp -d -t "${tool}.${pid}.XXXXXX"` \
percona-toolkit-3.2.1/bin/pt-stalk-599- || die "Cannot make secure tmpdir"
##############################################
percona-toolkit-3.2.1/bin/pt-stalk-882- if [ "$CMD_DMESG" ]; then
percona-toolkit-3.2.1/bin/pt-stalk:883: local UPTIME=`cat /proc/uptime | awk '{ print $1 }'`
percona-toolkit-3.2.1/bin/pt-stalk-884- local START_TIME=$(echo "$UPTIME 60" | awk '{print ($1 - $2)}')
##############################################
percona-toolkit-3.2.1/bin/pt-stalk-1117-
percona-toolkit-3.2.1/bin/pt-stalk:1118: has_rocksdb=`$CMD_MYSQL $EXT_ARGV -e "SHOW ENGINES" | grep -i 'rocksdb'`
percona-toolkit-3.2.1/bin/pt-stalk-1119- exit_code=$?
##############################################
percona-toolkit-3.2.1/bin/pt-summary-496- local pid="$$"
percona-toolkit-3.2.1/bin/pt-summary:497: PT_TMPDIR=`mktemp -d -t "${tool}.${pid}.XXXXXX"` \
percona-toolkit-3.2.1/bin/pt-summary-498- || die "Cannot make secure tmpdir"
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-1962- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-archiver:1963: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-archiver-1964-
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-2165-
percona-toolkit-3.2.1/bin/pt-archiver:2166: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-archiver-2167-
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-2274- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-archiver:2275: return "`$val`";
percona-toolkit-3.2.1/bin/pt-archiver-2276-}
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-2961- }
percona-toolkit-3.2.1/bin/pt-archiver:2962: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-archiver-2963-}
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-3008- }
percona-toolkit-3.2.1/bin/pt-archiver:3009: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-archiver:3010: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-archiver-3011- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-3155- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/bin/pt-archiver:3156: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/bin/pt-archiver-3157- type => $cmp,
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-3242- scols => \@r_scols,
percona-toolkit-3.2.1/bin/pt-archiver:3243: where => $result,
percona-toolkit-3.2.1/bin/pt-archiver-3244- };
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-5862- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-archiver:5863: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-archiver-5864- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-5878- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-archiver:5879: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-archiver-5880- }
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-5888- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-archiver:5889: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-archiver-5890- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-6434- ? ((VersionParser->new($dbh) >= '4.0.9' ? " FORCE" : " USE")
percona-toolkit-3.2.1/bin/pt-archiver:6435: . " INDEX(`$sel_stmt->{index}`)")
percona-toolkit-3.2.1/bin/pt-archiver-6436- : '')
##############################################
percona-toolkit-3.2.1/bin/pt-archiver-6460- if ( $sel_stmt->{index} && $src->{info}->{keys}->{$sel_stmt->{index}}->{cols} ) {
percona-toolkit-3.2.1/bin/pt-archiver:6461: $index_cols = join(",",map { "`$_`" } @{$src->{info}->{keys}->{$sel_stmt->{index}}->{cols}});
percona-toolkit-3.2.1/bin/pt-archiver-6462- }
##############################################
percona-toolkit-3.2.1/bin/pt-config-diff-5177- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-config-diff:5178: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-config-diff-5179- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-config-diff-5193- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-config-diff:5194: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-config-diff-5195- }
##############################################
percona-toolkit-3.2.1/bin/pt-config-diff-5203- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-config-diff:5204: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-config-diff-5205- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-deadlock-logger-2081- }
percona-toolkit-3.2.1/bin/pt-deadlock-logger:2082: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-deadlock-logger-2083-}
##############################################
percona-toolkit-3.2.1/bin/pt-deadlock-logger-2128- }
percona-toolkit-3.2.1/bin/pt-deadlock-logger:2129: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-deadlock-logger:2130: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-deadlock-logger-2131- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-deadlock-logger-4241- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-deadlock-logger:4242: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-deadlock-logger-4243- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-deadlock-logger-4257- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-deadlock-logger:4258: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-deadlock-logger-4259- }
##############################################
percona-toolkit-3.2.1/bin/pt-deadlock-logger-4267- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-deadlock-logger:4268: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-deadlock-logger-4269- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-deadlock-logger-4966- = $body
percona-toolkit-3.2.1/bin/pt-deadlock-logger:4967: =~ m{^(RECORD|TABLE) LOCKS? (?:space id \d+ page no \d+ n bits \d+ index `?$n`? of )?table `$n(?:/|`\.`)$n`.*?trx id $t lock.mode (\S+)}m;
percona-toolkit-3.2.1/bin/pt-deadlock-logger-4968- if ( $hash->{txn_id} ) {
##############################################
percona-toolkit-3.2.1/bin/pt-diskstats-4775- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-diskstats:4776: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-diskstats-4777- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-diskstats-4791- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-diskstats:4792: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-diskstats-4793- }
##############################################
percona-toolkit-3.2.1/bin/pt-diskstats-4801- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-diskstats:4802: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-diskstats-4803- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-124- }
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:125: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-126-}
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-173- }
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:174: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:175: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-176- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-349- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:350: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-351-
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-552-
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:553: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-554-
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-661- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:662: return "`$val`";
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-663-}
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-2280- . ' FROM ' . $args{tbl_name}
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:2281: . ($key_exists ? " FORCE INDEX (`$name`)" : '')
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-2282- . ' WHERE ';
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-2671- $ck_cols,
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:2672: join(',', map { "`$_`" }
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-2673- @{$keys->[$i]->{real_cols}})
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-3411- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:3412: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-3413- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-4845- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:4846: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-4847- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-4861- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:4862: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-4863- }
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-4871- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:4872: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-4873- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-5241- . ($args{is_fk} ? ' DROP FOREIGN KEY ' : ' DROP INDEX ')
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:5242: . "`$dupe->{key}`;\n";
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-5243- }
##############################################
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-5247- print "# To shorten this duplicate clustered index, execute:\n"
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:5248: . 'ALTER TABLE '.$q->quote($db, $tbl)." DROP INDEX `$dupe->{key}`, "
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker:5249: . "ADD INDEX `$dupe->{key}` ($dupe->{short_key});\n";
percona-toolkit-3.2.1/bin/pt-duplicate-key-checker-5250- }
##############################################
percona-toolkit-3.2.1/bin/pt-find-1676- }
percona-toolkit-3.2.1/bin/pt-find:1677: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-find-1678-}
##############################################
percona-toolkit-3.2.1/bin/pt-find-1723- }
percona-toolkit-3.2.1/bin/pt-find:1724: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-find:1725: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-find-1726- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-find-1899- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-find:1900: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-find-1901-
##############################################
percona-toolkit-3.2.1/bin/pt-find-2102-
percona-toolkit-3.2.1/bin/pt-find:2103: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-find-2104-
##############################################
percona-toolkit-3.2.1/bin/pt-find-2211- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-find:2212: return "`$val`";
percona-toolkit-3.2.1/bin/pt-find-2213-}
##############################################
percona-toolkit-3.2.1/bin/pt-find-3559- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-find:3560: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-find-3561- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-find-3575- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-find:3576: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-find-3577- }
##############################################
percona-toolkit-3.2.1/bin/pt-find-3585- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-find:3586: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-find-3587- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-find-4129- my $sth = $o->get('tbllike')
percona-toolkit-3.2.1/bin/pt-find:4130: ? $dbh->prepare("SHOW TABLE$sta FROM `$database` LIKE ?")
percona-toolkit-3.2.1/bin/pt-find:4131: : $dbh->prepare("SHOW TABLE$sta FROM `$database`");
percona-toolkit-3.2.1/bin/pt-find-4132-
##############################################
percona-toolkit-3.2.1/bin/pt-find-4182- . " FROM INFORMATION_SCHEMA.ROUTINES "
percona-toolkit-3.2.1/bin/pt-find:4183: . " WHERE ROUTINE_SCHEMA = '$database' "
percona-toolkit-3.2.1/bin/pt-find-4184- . " AND ROUTINE_TYPE = '$type'";
##############################################
percona-toolkit-3.2.1/bin/pt-find-4201- . " FROM INFORMATION_SCHEMA.TRIGGERS "
percona-toolkit-3.2.1/bin/pt-find:4202: . " WHERE EVENT_OBJECT_SCHEMA = '$database'";
percona-toolkit-3.2.1/bin/pt-find-4203- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/bin/pt-fk-error-logger-1233- }
percona-toolkit-3.2.1/bin/pt-fk-error-logger:1234: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-fk-error-logger-1235-}
##############################################
percona-toolkit-3.2.1/bin/pt-fk-error-logger-1280- }
percona-toolkit-3.2.1/bin/pt-fk-error-logger:1281: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-fk-error-logger:1282: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-fk-error-logger-1283- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-fk-error-logger-3746- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-fk-error-logger:3747: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-fk-error-logger-3748- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-fk-error-logger-3762- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-fk-error-logger:3763: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-fk-error-logger-3764- }
##############################################
percona-toolkit-3.2.1/bin/pt-fk-error-logger-3772- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-fk-error-logger:3773: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-fk-error-logger-3774- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-3351- }
percona-toolkit-3.2.1/bin/pt-heartbeat:3352: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-heartbeat-3353-}
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-3398- }
percona-toolkit-3.2.1/bin/pt-heartbeat:3399: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-heartbeat:3400: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-heartbeat-3401- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-3574- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-heartbeat:3575: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-heartbeat-3576-
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-3777-
percona-toolkit-3.2.1/bin/pt-heartbeat:3778: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-heartbeat-3779-
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-3886- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-heartbeat:3887: return "`$val`";
percona-toolkit-3.2.1/bin/pt-heartbeat-3888-}
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-5465- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-heartbeat:5466: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-heartbeat-5467- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-5481- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-heartbeat:5482: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-heartbeat-5483- }
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-5491- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-heartbeat:5492: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-heartbeat-5493- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-5949- $dbh->{FetchHashKeyName} = 'NAME_lc';
percona-toolkit-3.2.1/bin/pt-heartbeat:5950: $dbh->do("USE `$db`");
percona-toolkit-3.2.1/bin/pt-heartbeat-5951-
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-6110- if ( !$o->get('replace') ) {
percona-toolkit-3.2.1/bin/pt-heartbeat:6111: my $sql = "SELECT 1 FROM $db_tbl WHERE $pk_col='$pk_val' LIMIT 1";
percona-toolkit-3.2.1/bin/pt-heartbeat-6112- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-6169- . (@extra_cols ? ", " . join(', ', map { "$_=?" } @extra_cols) : "")
percona-toolkit-3.2.1/bin/pt-heartbeat:6170: . " WHERE $pk_col='$pk_val'";
percona-toolkit-3.2.1/bin/pt-heartbeat-6171- }
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-6249- . " FROM $db_tbl "
percona-toolkit-3.2.1/bin/pt-heartbeat:6250: . "WHERE $pk_col='$pk_val' "
percona-toolkit-3.2.1/bin/pt-heartbeat-6251- . "LIMIT 1";
##############################################
percona-toolkit-3.2.1/bin/pt-heartbeat-6393- $dbh->{FetchHashKeyName} = 'NAME_lc';
percona-toolkit-3.2.1/bin/pt-heartbeat:6394: $dbh->do("USE `$db`");
percona-toolkit-3.2.1/bin/pt-heartbeat-6395-
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-575- }
percona-toolkit-3.2.1/bin/pt-index-usage:576: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-index-usage-577-}
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-622- }
percona-toolkit-3.2.1/bin/pt-index-usage:623: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-index-usage:624: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-index-usage-625- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-3138- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-index-usage:3139: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-index-usage-3140-
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-3341-
percona-toolkit-3.2.1/bin/pt-index-usage:3342: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-index-usage-3343-
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-3450- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-index-usage:3451: return "`$val`";
percona-toolkit-3.2.1/bin/pt-index-usage-3452-}
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-4189- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/bin/pt-index-usage:4190: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/bin/pt-index-usage-4191- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-4878- my $insert_index_sth = $dbh->prepare(
percona-toolkit-3.2.1/bin/pt-index-usage:4879: "INSERT INTO `$db`.`indexes` (db, tbl, idx, cnt) VALUES (?, ?, ?, ?) "
percona-toolkit-3.2.1/bin/pt-index-usage-4880- . "ON DUPLICATE KEY UPDATE cnt = cnt + ?");
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-4891- my $insert_tbl_sth = $dbh->prepare(
percona-toolkit-3.2.1/bin/pt-index-usage:4892: "INSERT INTO `$db`.`tables` (db, tbl, cnt) VALUES (?, ?, ?) "
percona-toolkit-3.2.1/bin/pt-index-usage-4893- . "ON DUPLICATE KEY UPDATE cnt = cnt + ?");
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-4902- my $insert_query_sth = $dbh->prepare(
percona-toolkit-3.2.1/bin/pt-index-usage:4903: "INSERT IGNORE INTO `$db`.`queries` (query_id, fingerprint, sample) "
percona-toolkit-3.2.1/bin/pt-index-usage-4904- . " VALUES (CONV(?, 16, 10), ?, ?)");
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-4912- my $insert_index_usage_sth = $dbh->prepare(
percona-toolkit-3.2.1/bin/pt-index-usage:4913: "INSERT INTO `$db`.`index_usage` (query_id, db, tbl, idx, cnt) "
percona-toolkit-3.2.1/bin/pt-index-usage-4914- . "VALUES (CONV(?, 16, 10), ?, ?, ?, ?) "
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-4930- my $insert_index_alt_sth = $dbh->prepare(
percona-toolkit-3.2.1/bin/pt-index-usage:4931: "INSERT INTO `$db`.`index_alternatives` "
percona-toolkit-3.2.1/bin/pt-index-usage-4932- . "(query_id, db, tbl, idx, alt_idx, cnt) "
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-6243- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-index-usage:6244: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-index-usage-6245- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-6259- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-index-usage:6260: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-index-usage-6261- }
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-6269- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-index-usage:6270: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-index-usage-6271- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-index-usage-7006- next unless $ident =~ m/^view/;
percona-toolkit-3.2.1/bin/pt-index-usage:7007: my $sql = "CREATE VIEW `$ident` AS $magic->{$ident}";
percona-toolkit-3.2.1/bin/pt-index-usage-7008- PTDEBUG && _d($dbh, $sql);
##############################################
percona-toolkit-3.2.1/bin/pt-kill-2964- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-kill:2965: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-kill-2966-
##############################################
percona-toolkit-3.2.1/bin/pt-kill-3167-
percona-toolkit-3.2.1/bin/pt-kill:3168: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-kill-3169-
##############################################
percona-toolkit-3.2.1/bin/pt-kill-3276- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-kill:3277: return "`$val`";
percona-toolkit-3.2.1/bin/pt-kill-3278-}
##############################################
percona-toolkit-3.2.1/bin/pt-kill-4672- }
percona-toolkit-3.2.1/bin/pt-kill:4673: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-kill-4674-}
##############################################
percona-toolkit-3.2.1/bin/pt-kill-4719- }
percona-toolkit-3.2.1/bin/pt-kill:4720: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-kill:4721: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-kill-4722- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-kill-6670- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-kill:6671: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-kill-6672- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-kill-6686- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-kill:6687: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-kill-6688- }
##############################################
percona-toolkit-3.2.1/bin/pt-kill-6696- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-kill:6697: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-kill-6698- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-kill-7456- POSIX::setsid() or die "Cannot start a new session: $OS_ERROR";
percona-toolkit-3.2.1/bin/pt-kill:7457: my $retval = system($cmd);
percona-toolkit-3.2.1/bin/pt-kill-7458- $retval = $retval >> 8;
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-2841- }
percona-toolkit-3.2.1/bin/pt-online-schema-change:2842: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-online-schema-change-2843-}
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-2890- }
percona-toolkit-3.2.1/bin/pt-online-schema-change:2891: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-online-schema-change:2892: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-online-schema-change-2893- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-3037- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/bin/pt-online-schema-change:3038: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/bin/pt-online-schema-change-3039- type => $cmp,
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-3124- scols => \@r_scols,
percona-toolkit-3.2.1/bin/pt-online-schema-change:3125: where => $result,
percona-toolkit-3.2.1/bin/pt-online-schema-change-3126- };
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-3332- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-online-schema-change:3333: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-online-schema-change-3334-
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-3535-
percona-toolkit-3.2.1/bin/pt-online-schema-change:3536: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-online-schema-change-3537-
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-3644- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-online-schema-change:3645: return "`$val`";
percona-toolkit-3.2.1/bin/pt-online-schema-change-3646-}
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-5566-
percona-toolkit-3.2.1/bin/pt-online-schema-change:5567: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/bin/pt-online-schema-change-5568- my $tbl_struct = $tbl->{tbl_struct};
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-5695-
percona-toolkit-3.2.1/bin/pt-online-schema-change:5696: my $from = "$tbl->{name} FORCE INDEX(`$index`)";
percona-toolkit-3.2.1/bin/pt-online-schema-change-5697- my $order_by = join(', ', map {$q->quote($_)} @{$index_cols});
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-5789- from => $from,
percona-toolkit-3.2.1/bin/pt-online-schema-change:5790: where => $where,
percona-toolkit-3.2.1/bin/pt-online-schema-change-5791- boundaries => $asc->{boundaries},
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-5983-
percona-toolkit-3.2.1/bin/pt-online-schema-change:5984: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/bin/pt-online-schema-change-5985-
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-5988- tbl => $tbl,
percona-toolkit-3.2.1/bin/pt-online-schema-change:5989: where => $where,
percona-toolkit-3.2.1/bin/pt-online-schema-change-5990- );
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-6104- my $sql = "SHOW INDEXES FROM $tbl->{name} "
percona-toolkit-3.2.1/bin/pt-online-schema-change:6105: . "WHERE Key_name = '$index'";
percona-toolkit-3.2.1/bin/pt-online-schema-change-6106- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-8027- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-online-schema-change:8028: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-online-schema-change-8029- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-8043- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-online-schema-change:8044: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-online-schema-change-8045- }
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-8053- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-online-schema-change:8054: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-online-schema-change-8055- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-10368- . " 'No, the desired unique index contains duplicated values. There will be data loss'\n"
percona-toolkit-3.2.1/bin/pt-online-schema-change:10369: . ") AS IsThereUniqueness FROM `$tbl->{db}`.`$tbl->{tbl}`;\n\n";
percona-toolkit-3.2.1/bin/pt-online-schema-change-10370- $msg .= $sql;
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-10538- # would match if this regex was used like /.$re/,
percona-toolkit-3.2.1/bin/pt-online-schema-change:10539: # or even more tellingly, would match on "``" =~ /`$re`/
percona-toolkit-3.2.1/bin/pt-online-schema-change-10540- $quoted_ident_character+ # One or more characters
percona-toolkit-3.2.1/bin/pt-online-schema-change:10541: (?:``$quoted_ident_character*)* # possibly followed by `` and
percona-toolkit-3.2.1/bin/pt-online-schema-change-10542- # more characters, zero or more times
percona-toolkit-3.2.1/bin/pt-online-schema-change-10543- |$quoted_ident_character* # OR, zero or more characters
percona-toolkit-3.2.1/bin/pt-online-schema-change:10544: (?:``$quoted_ident_character* )+ # Followed by `` and maybe more
percona-toolkit-3.2.1/bin/pt-online-schema-change-10545- # characters, one or more times.
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-10553-
percona-toolkit-3.2.1/bin/pt-online-schema-change:10554: my $table_ident = qr/$unquoted_ident|`$quoted_ident`|"$ansi_quotes_ident"/;
percona-toolkit-3.2.1/bin/pt-online-schema-change-10555-
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-10717- # Limit constraint name to 64 characters
percona-toolkit-3.2.1/bin/pt-online-schema-change:10718: $sql =~ s/CONSTRAINT `([^`]{1,64})[^`]*` (.*)/ CONSTRAINT `$1` $2/gm;
percona-toolkit-3.2.1/bin/pt-online-schema-change-10719-
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-10976- . "FROM information_schema.key_column_usage "
percona-toolkit-3.2.1/bin/pt-online-schema-change:10977: . "WHERE referenced_table_schema='$tbl->{db}' "
percona-toolkit-3.2.1/bin/pt-online-schema-change-10978- . "AND referenced_table_name='$tbl->{tbl}'";
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-11145-
percona-toolkit-3.2.1/bin/pt-online-schema-change:11146: $constraint =~ s/CONSTRAINT `$fk`/CONSTRAINT `$new_fk`/;
percona-toolkit-3.2.1/bin/pt-online-schema-change-11147-
percona-toolkit-3.2.1/bin/pt-online-schema-change:11148: my $sql = "DROP FOREIGN KEY `$fk`, "
percona-toolkit-3.2.1/bin/pt-online-schema-change-11149- . "ADD $constraint";
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-11294- my $delete_trigger
percona-toolkit-3.2.1/bin/pt-online-schema-change:11295: = "CREATE TRIGGER `${prefix}_del` AFTER DELETE ON $orig_tbl->{name} "
percona-toolkit-3.2.1/bin/pt-online-schema-change-11296- . "FOR EACH ROW "
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-11304- my $insert_trigger
percona-toolkit-3.2.1/bin/pt-online-schema-change:11305: = "CREATE TRIGGER `${prefix}_ins` AFTER INSERT ON $orig_tbl->{name} "
percona-toolkit-3.2.1/bin/pt-online-schema-change-11306- . "FOR EACH ROW "
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-11319- my $update_trigger
percona-toolkit-3.2.1/bin/pt-online-schema-change:11320: = "CREATE TRIGGER `${prefix}_upd` AFTER UPDATE ON $orig_tbl->{name} "
percona-toolkit-3.2.1/bin/pt-online-schema-change-11321- . "FOR EACH ROW "
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-11382- $definer =~ s/@/`@`/;
percona-toolkit-3.2.1/bin/pt-online-schema-change:11383: $definer = "`$definer`" ;
percona-toolkit-3.2.1/bin/pt-online-schema-change-11384-
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-11389- my $sql = "CREATE DEFINER=$definer "
percona-toolkit-3.2.1/bin/pt-online-schema-change:11390: . "TRIGGER `$new_tbl->{db}`.`$tmp_trigger_name` "
percona-toolkit-3.2.1/bin/pt-online-schema-change-11391- . "$orig_trigger->{action_timing} $orig_trigger->{event_manipulation} ON $new_tbl->{tbl}\n"
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-11402- }
percona-toolkit-3.2.1/bin/pt-online-schema-change:11403: $dbh->do("DROP TRIGGER IF EXISTS `$tmp_trigger_name`");
percona-toolkit-3.2.1/bin/pt-online-schema-change-11404- }
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-11484- $definer =~ s/@/`@`/;
percona-toolkit-3.2.1/bin/pt-online-schema-change:11485: $definer = "`$definer`" ;
percona-toolkit-3.2.1/bin/pt-online-schema-change-11486-
percona-toolkit-3.2.1/bin/pt-online-schema-change-11487- my $sqls = [];
percona-toolkit-3.2.1/bin/pt-online-schema-change:11488: push @$sqls, "LOCK TABLES `$args{db}`.`$args{new_tbl}` WRITE, `$args{db}`. `$args{orig_tbl}` WRITE;";
percona-toolkit-3.2.1/bin/pt-online-schema-change-11489- push @$sqls, '/*!50003 SET @saved_sql_mode = @@sql_mode */';
##############################################
percona-toolkit-3.2.1/bin/pt-online-schema-change-11497-
percona-toolkit-3.2.1/bin/pt-online-schema-change:11498: push @$sqls, "DROP TRIGGER IF EXISTS `$args{db}`.`$trigger->{trigger_name}` " if ! $args{duplicate_trigger};
percona-toolkit-3.2.1/bin/pt-online-schema-change-11499-
percona-toolkit-3.2.1/bin/pt-online-schema-change-11500- push @$sqls, "CREATE DEFINER=$definer "
percona-toolkit-3.2.1/bin/pt-online-schema-change:11501: . "TRIGGER `$args{db}`.`$trigger->{trigger_name}$suffix` "
percona-toolkit-3.2.1/bin/pt-online-schema-change-11502- . "$trigger->{action_timing} $trigger->{event_manipulation} ON $args{new_tbl}\n"
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-1243- }
percona-toolkit-3.2.1/bin/pt-query-digest:1244: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-query-digest-1245-}
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-1290- }
percona-toolkit-3.2.1/bin/pt-query-digest:1291: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-query-digest:1292: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-query-digest-1293- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-5865- my $attrib = $args{attrib};
percona-toolkit-3.2.1/bin/pt-query-digest:5866: my $where = $args{where};
percona-toolkit-3.2.1/bin/pt-query-digest-5867-
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-6810- eval {
percona-toolkit-3.2.1/bin/pt-query-digest:6811: my $mem = `ps -o rss,vsz -p $PID 2>&1`;
percona-toolkit-3.2.1/bin/pt-query-digest-6812- ( $rss, $vsz ) = $mem =~ m/(\d+)/g;
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-7135- $vals{variance_to_mean} = do {
percona-toolkit-3.2.1/bin/pt-query-digest:7136: my $query_time = $ea->metrics(where => $item, attrib => 'Query_time');
percona-toolkit-3.2.1/bin/pt-query-digest-7137- $query_time->{stddev}**2 / ($query_time->{avg} || 1)
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-7374- my $samp_query = $sample->{arg} || '';
percona-toolkit-3.2.1/bin/pt-query-digest:7375: my $query_time = $ea->metrics(where => $item, attrib => 'Query_time');
percona-toolkit-3.2.1/bin/pt-query-digest-7376-
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-7762- $tables .= '# SHOW TABLE STATUS'
percona-toolkit-3.2.1/bin/pt-query-digest:7763: . ($db ? " FROM `$db`" : '')
percona-toolkit-3.2.1/bin/pt-query-digest-7764- . " LIKE '$tbl'${mark}\n";
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-8097- attrib => $attrib,
percona-toolkit-3.2.1/bin/pt-query-digest:8098: where => $item,
percona-toolkit-3.2.1/bin/pt-query-digest-8099- );
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-8158- = 'SHOW TABLE STATUS'
percona-toolkit-3.2.1/bin/pt-query-digest:8159: . ($db ? " FROM `$db`" : '')
percona-toolkit-3.2.1/bin/pt-query-digest-8160- . " LIKE '$tbl'${mark}";
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-8907- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-query-digest:8908: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-query-digest-8909-
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-9110-
percona-toolkit-3.2.1/bin/pt-query-digest:9111: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-query-digest-9112-
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-9219- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-query-digest:9220: return "`$val`";
percona-toolkit-3.2.1/bin/pt-query-digest-9221-}
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-12962- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-query-digest:12963: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-query-digest-12964- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-12978- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-query-digest:12979: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-query-digest-12980- }
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-12988- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-query-digest:12989: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-query-digest-12990- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-query-digest-14884- attrib => $attrib,
percona-toolkit-3.2.1/bin/pt-query-digest:14885: where => $item,
percona-toolkit-3.2.1/bin/pt-query-digest-14886- );
##############################################
percona-toolkit-3.2.1/bin/pt-show-grants-1946- if ( scalar @all_hosts ) {
percona-toolkit-3.2.1/bin/pt-show-grants:1947: my $where = join(' OR ', map { "User='$_'" } @all_hosts);
percona-toolkit-3.2.1/bin/pt-show-grants-1948- my $sql = "SELECT DISTINCT User, Host FROM mysql.user WHERE $where "
##############################################
percona-toolkit-3.2.1/bin/pt-show-grants-2094- "DROP USER $user_host;",
percona-toolkit-3.2.1/bin/pt-show-grants:2095: "DELETE FROM `mysql`.`user` WHERE `User`='$u->{User}' AND `Host`='$u->{Host}';",
percona-toolkit-3.2.1/bin/pt-show-grants-2096- ), "\n";
##############################################
percona-toolkit-3.2.1/bin/pt-show-grants-2162- foreach my $u ( @$users ) {
percona-toolkit-3.2.1/bin/pt-show-grants:2163: my $user_host = "`$u->{User}`\@`$u->{Host}`";
percona-toolkit-3.2.1/bin/pt-show-grants-2164- warn "> user_host: $user_host";
##############################################
percona-toolkit-3.2.1/bin/pt-slave-delay-4063- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-slave-delay:4064: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-slave-delay-4065- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-slave-delay-4079- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-slave-delay:4080: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-slave-delay-4081- }
##############################################
percona-toolkit-3.2.1/bin/pt-slave-delay-4089- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-slave-delay:4090: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-slave-delay-4091- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-slave-find-4067- if ($packed) {
percona-toolkit-3.2.1/bin/pt-slave-find:4068: $hostname = gethostbyaddr($packed, AF_INET);
percona-toolkit-3.2.1/bin/pt-slave-find-4069- }
##############################################
percona-toolkit-3.2.1/bin/pt-slave-restart-126- }
percona-toolkit-3.2.1/bin/pt-slave-restart:127: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-slave-restart-128-}
##############################################
percona-toolkit-3.2.1/bin/pt-slave-restart-173- }
percona-toolkit-3.2.1/bin/pt-slave-restart:174: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-slave-restart:175: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-slave-restart-176- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-slave-restart-4791- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-slave-restart:4792: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-slave-restart-4793- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-slave-restart-4807- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-slave-restart:4808: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-slave-restart-4809- }
##############################################
percona-toolkit-3.2.1/bin/pt-slave-restart-4817- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-slave-restart:4818: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-slave-restart-4819- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-1241- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-table-checksum:1242: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-table-checksum-1243- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-1257- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-table-checksum:1258: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-table-checksum-1259- }
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-1267- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-table-checksum:1268: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-table-checksum-1269- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-4090- }
percona-toolkit-3.2.1/bin/pt-table-checksum:4091: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-table-checksum-4092-}
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-4137- }
percona-toolkit-3.2.1/bin/pt-table-checksum:4138: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-table-checksum:4139: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-table-checksum-4140- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-4507- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-table-checksum:4508: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-table-checksum-4509-
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-4710-
percona-toolkit-3.2.1/bin/pt-table-checksum:4711: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-table-checksum-4712-
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-4819- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-table-checksum:4820: return "`$val`";
percona-toolkit-3.2.1/bin/pt-table-checksum-4821-}
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-4910- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/bin/pt-table-checksum:4911: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/bin/pt-table-checksum-4912- type => $cmp,
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-4997- scols => \@r_scols,
percona-toolkit-3.2.1/bin/pt-table-checksum:4998: where => $result,
percona-toolkit-3.2.1/bin/pt-table-checksum-4999- };
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-6368-
percona-toolkit-3.2.1/bin/pt-table-checksum:6369: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/bin/pt-table-checksum-6370- my $tbl_struct = $tbl->{tbl_struct};
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-6494-
percona-toolkit-3.2.1/bin/pt-table-checksum:6495: my $from = "$tbl->{name} FORCE INDEX(`$index`)";
percona-toolkit-3.2.1/bin/pt-table-checksum-6496- my $order_by = join(', ', map {$q->quote($_)} @{$index_cols});
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-6588- from => $from,
percona-toolkit-3.2.1/bin/pt-table-checksum:6589: where => $where,
percona-toolkit-3.2.1/bin/pt-table-checksum-6590- boundaries => $asc->{boundaries},
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-6782-
percona-toolkit-3.2.1/bin/pt-table-checksum:6783: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/bin/pt-table-checksum-6784-
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-6787- tbl => $tbl,
percona-toolkit-3.2.1/bin/pt-table-checksum:6788: where => $where,
percona-toolkit-3.2.1/bin/pt-table-checksum-6789- );
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-6903- my $sql = "SHOW INDEXES FROM $tbl->{name} "
percona-toolkit-3.2.1/bin/pt-table-checksum:6904: . "WHERE Key_name = '$index'";
percona-toolkit-3.2.1/bin/pt-table-checksum-6905- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-7153- my $o = $self->{OptionParser};
percona-toolkit-3.2.1/bin/pt-table-checksum:7154: my $where = $o->has('where') ? $o->get('where') : undef;
percona-toolkit-3.2.1/bin/pt-table-checksum-7155-
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-7737- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/bin/pt-table-checksum:7738: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/bin/pt-table-checksum-7739- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-11056- tbl => $tbl,
percona-toolkit-3.2.1/bin/pt-table-checksum:11057: where => $o->get('where'),
percona-toolkit-3.2.1/bin/pt-table-checksum-11058- );
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-11422- repl_table => $repl_table,
percona-toolkit-3.2.1/bin/pt-table-checksum:11423: where => "db='$tbl->{db}' AND tbl='$tbl->{tbl}'",
percona-toolkit-3.2.1/bin/pt-table-checksum-11424- );
##############################################
percona-toolkit-3.2.1/bin/pt-table-checksum-12506- my $sql = "SELECT MAX(chunk) FROM $repl_table "
percona-toolkit-3.2.1/bin/pt-table-checksum:12507: . "WHERE db='$tbl->{db}' AND tbl='$tbl->{tbl}' "
percona-toolkit-3.2.1/bin/pt-table-checksum-12508- . "AND master_crc IS NOT NULL";
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-1900- }
percona-toolkit-3.2.1/bin/pt-table-sync:1901: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-table-sync-1902-}
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-1949- }
percona-toolkit-3.2.1/bin/pt-table-sync:1950: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-table-sync:1951: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-table-sync-1952- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-2883- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-table-sync:2884: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-table-sync-2885-
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-3086-
percona-toolkit-3.2.1/bin/pt-table-sync:3087: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-table-sync-3088-
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-3195- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-table-sync:3196: return "`$val`";
percona-toolkit-3.2.1/bin/pt-table-sync-3197-}
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-3577- }
percona-toolkit-3.2.1/bin/pt-table-sync:3578: my %in_where = map { $_ => 1 } @$cols;
percona-toolkit-3.2.1/bin/pt-table-sync:3579: my $where = $self->make_where_clause($row, $cols);
percona-toolkit-3.2.1/bin/pt-table-sync-3580- my @cols;
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-3625- if ( my $dbh = $self->{fetch_back} ) {
percona-toolkit-3.2.1/bin/pt-table-sync:3626: my $where = $self->make_where_clause($row, $cols);
percona-toolkit-3.2.1/bin/pt-table-sync-3627- my $sql = $self->make_fetch_back_query($where);
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-3712- && $tbl_struct->{type_for}->{$col} =~ m/b(?:lob|inary)/ ) {
percona-toolkit-3.2.1/bin/pt-table-sync:3713: $col = "IF(BINARY(`$col`)='', '', CONCAT('0x', HEX(`$col`))) AS `$col`";
percona-toolkit-3.2.1/bin/pt-table-sync-3714- }
percona-toolkit-3.2.1/bin/pt-table-sync-3715- else {
percona-toolkit-3.2.1/bin/pt-table-sync:3716: $col = "`$col`";
percona-toolkit-3.2.1/bin/pt-table-sync-3717- }
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-3975- die "Error calculating chunk start and end points for table "
percona-toolkit-3.2.1/bin/pt-table-sync:3976: . "`$args{tbl_struct}->{name}` on column `$args{chunk_col}` "
percona-toolkit-3.2.1/bin/pt-table-sync-3977- . "with min/max values "
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-4269- my ($dbh, $db, $tbl, $col) = @args{@required_args};
percona-toolkit-3.2.1/bin/pt-table-sync:4270: my $where = $args{where};
percona-toolkit-3.2.1/bin/pt-table-sync-4271- my $q = $self->{Quoter};
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-4327- $query =~ s!/\*PROGRESS_COMMENT\*/!$comment!;
percona-toolkit-3.2.1/bin/pt-table-sync:4328: my $where = "WHERE (" . $args{chunks}->[$args{chunk_num}] . ')';
percona-toolkit-3.2.1/bin/pt-table-sync-4329- if ( $args{where} && grep { $_ } @{$args{where}} ) {
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-4337- PTDEBUG && _d('Parameters:',
percona-toolkit-3.2.1/bin/pt-table-sync:4338: Dumper({WHERE => $where, DB_TBL => $db_tbl, INDEX_HINT => $index_hint}));
percona-toolkit-3.2.1/bin/pt-table-sync-4339- $query =~ s!/\*WHERE\*/! $where!;
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-5224- index_hint => $self->{index_hint},
percona-toolkit-3.2.1/bin/pt-table-sync:5225: where => [ $args{where} ],
percona-toolkit-3.2.1/bin/pt-table-sync-5226- );
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-5428- eval {
percona-toolkit-3.2.1/bin/pt-table-sync:5429: my $sql = "SHOW TABLE STATUS FROM `$db` LIKE "
percona-toolkit-3.2.1/bin/pt-table-sync-5430- . $self->{Quoter}->literal_like($tbl);
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-5526- else {
percona-toolkit-3.2.1/bin/pt-table-sync:5527: my $where = $self->__get_boundaries(%args);
percona-toolkit-3.2.1/bin/pt-table-sync-5528- return $self->{TableChunker}->inject_chunks(
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-5534- index_hint => $self->{index_hint},
percona-toolkit-3.2.1/bin/pt-table-sync:5535: where => [ $args{where} ],
percona-toolkit-3.2.1/bin/pt-table-sync-5536- );
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-5567- . " because MySQL chose "
percona-toolkit-3.2.1/bin/pt-table-sync:5568: . ($explain_index ? "the `$explain_index`" : 'no') . ' index'
percona-toolkit-3.2.1/bin/pt-table-sync:5569: . " instead of the `$s->{index}` index";
percona-toolkit-3.2.1/bin/pt-table-sync-5570- }
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-5586-
percona-toolkit-3.2.1/bin/pt-table-sync:5587: my $where = $lb ? "($lb AND $ub)" : $ub;
percona-toolkit-3.2.1/bin/pt-table-sync-5588-
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-6008- eval {
percona-toolkit-3.2.1/bin/pt-table-sync:6009: $src->{dbh}->do("USE `$src->{db}`");
percona-toolkit-3.2.1/bin/pt-table-sync:6010: $dst->{dbh}->do("USE `$dst->{db}`");
percona-toolkit-3.2.1/bin/pt-table-sync-6011- };
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-6042- table => $src->{tbl},
percona-toolkit-3.2.1/bin/pt-table-sync:6043: where => $args{where},
percona-toolkit-3.2.1/bin/pt-table-sync-6044- );
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-6047- table => $dst->{tbl},
percona-toolkit-3.2.1/bin/pt-table-sync:6048: where => $args{where},
percona-toolkit-3.2.1/bin/pt-table-sync-6049- );
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-6443- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/bin/pt-table-sync:6444: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/bin/pt-table-sync-6445- type => $cmp,
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-6530- scols => \@r_scols,
percona-toolkit-3.2.1/bin/pt-table-sync:6531: where => $result,
percona-toolkit-3.2.1/bin/pt-table-sync-6532- };
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-7825- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/bin/pt-table-sync:7826: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/bin/pt-table-sync-7827- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-9692- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-table-sync:9693: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-table-sync-9694- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-9708- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-table-sync:9709: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-table-sync-9710- }
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-9718- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-table-sync:9719: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-table-sync-9720- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-10802- callback => $callback,
percona-toolkit-3.2.1/bin/pt-table-sync:10803: where => $args{where} || $o->get('where'),
percona-toolkit-3.2.1/bin/pt-table-sync-10804- bidirectional => $o->get('bidirectional'),
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-11441- if ( $cmp eq 'equals' || $cmp eq 'matches' ) {
percona-toolkit-3.2.1/bin/pt-table-sync:11442: $err = "neither `$col` value $cmp $val";
percona-toolkit-3.2.1/bin/pt-table-sync-11443- }
percona-toolkit-3.2.1/bin/pt-table-sync-11444- else {
percona-toolkit-3.2.1/bin/pt-table-sync:11445: $err = "`$col` values are the same"
percona-toolkit-3.2.1/bin/pt-table-sync-11446- }
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-11448- elsif ( $res == FAILED_THRESHOLD ) {
percona-toolkit-3.2.1/bin/pt-table-sync:11449: $err = "`$col` values do not differ by the threhold, $thr."
percona-toolkit-3.2.1/bin/pt-table-sync-11450- }
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-11457- $action = undef; # skip change in case we just warn
percona-toolkit-3.2.1/bin/pt-table-sync:11458: my $where = $ch->make_where_clause($lr, $syncer->key_cols());
percona-toolkit-3.2.1/bin/pt-table-sync-11459- $err = "# Cannot resolve conflict WHERE $where: $err\n";
##############################################
percona-toolkit-3.2.1/bin/pt-table-sync-11642- . "FROM information_schema.key_column_usage "
percona-toolkit-3.2.1/bin/pt-table-sync:11643: . "WHERE constraint_schema='$tbl->{db}' "
percona-toolkit-3.2.1/bin/pt-table-sync-11644- . "AND referenced_table_name='$tbl->{tbl}'";
##############################################
percona-toolkit-3.2.1/bin/pt-table-usage-5080- tables => $tables,
percona-toolkit-3.2.1/bin/pt-table-usage:5081: where => $query_struct->{where},
percona-toolkit-3.2.1/bin/pt-table-usage-5082- );
##############################################
percona-toolkit-3.2.1/bin/pt-table-usage-5218- tables => $tables,
percona-toolkit-3.2.1/bin/pt-table-usage:5219: where => $table->{join}->{where},
percona-toolkit-3.2.1/bin/pt-table-usage-5220- clause => 'JOIN condition', # just for debugging
##############################################
percona-toolkit-3.2.1/bin/pt-table-usage-5662- if ( $db ) {
percona-toolkit-3.2.1/bin/pt-table-usage:5663: $sql = "USE `$db`";
percona-toolkit-3.2.1/bin/pt-table-usage-5664- PTDEBUG && _d($dbh, $sql);
##############################################
percona-toolkit-3.2.1/bin/pt-table-usage-5715- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-table-usage:5716: return "`$val`";
percona-toolkit-3.2.1/bin/pt-table-usage-5717-}
##############################################
percona-toolkit-3.2.1/bin/pt-table-usage-6591- }
percona-toolkit-3.2.1/bin/pt-table-usage:6592: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-table-usage-6593-}
##############################################
percona-toolkit-3.2.1/bin/pt-table-usage-6638- }
percona-toolkit-3.2.1/bin/pt-table-usage:6639: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-table-usage:6640: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-table-usage-6641- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-table-usage-6814- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/bin/pt-table-usage:6815: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-table-usage-6816-
##############################################
percona-toolkit-3.2.1/bin/pt-table-usage-7017-
percona-toolkit-3.2.1/bin/pt-table-usage:7018: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/bin/pt-table-usage-7019-
##############################################
percona-toolkit-3.2.1/bin/pt-table-usage-7126- $val =~ s/""/"/g;
percona-toolkit-3.2.1/bin/pt-table-usage:7127: return "`$val`";
percona-toolkit-3.2.1/bin/pt-table-usage-7128-}
##############################################
percona-toolkit-3.2.1/bin/pt-table-usage-7201- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/bin/pt-table-usage:7202: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/bin/pt-table-usage-7203- PTDEBUG && _d('New db:', $db);
##############################################
percona-toolkit-3.2.1/bin/pt-upgrade-1240- }
percona-toolkit-3.2.1/bin/pt-upgrade:1241: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/bin/pt-upgrade-1242-}
##############################################
percona-toolkit-3.2.1/bin/pt-upgrade-1287- }
percona-toolkit-3.2.1/bin/pt-upgrade:1288: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-upgrade:1289: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/bin/pt-upgrade-1290- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/bin/pt-upgrade-4552- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-upgrade:4553: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-upgrade-4554- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-upgrade-4568- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-upgrade:4569: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-upgrade-4570- }
##############################################
percona-toolkit-3.2.1/bin/pt-upgrade-4578- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-upgrade:4579: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-upgrade-4580- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/bin/pt-upgrade-5723- PTDEBUG && _d('New current db:', $db);
percona-toolkit-3.2.1/bin/pt-upgrade:5724: $host->dbh->do("USE `$db`");
percona-toolkit-3.2.1/bin/pt-upgrade-5725- $host->{current_db} = $db;
##############################################
percona-toolkit-3.2.1/bin/pt-upgrade-6418- PTDEBUG && _d('New current db:', $db);
percona-toolkit-3.2.1/bin/pt-upgrade:6419: print { $self->_query_fh } "use `$db`;\n";
percona-toolkit-3.2.1/bin/pt-upgrade-6420- $self->current_database($db);
##############################################
percona-toolkit-3.2.1/bin/pt-variable-advisor-4970- chomp(my $lsb_release
percona-toolkit-3.2.1/bin/pt-variable-advisor:4971: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/bin/pt-variable-advisor-4972- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/bin/pt-variable-advisor-4986- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/bin/pt-variable-advisor:4987: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/bin/pt-variable-advisor-4988- }
##############################################
percona-toolkit-3.2.1/bin/pt-variable-advisor-4996- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/bin/pt-variable-advisor:4997: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/bin/pt-variable-advisor-4998- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/config/sphinx-build/percona-theme/static/jquery.min.js-21-Wa=/^(\s|\u00A0)+|(\s|\u00A0)+$/g,Xa=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,P=navigator.userAgent,xa=false,Q=[],L,$=Object.prototype.toString,aa=Object.prototype.hasOwnProperty,ba=Array.prototype.push,R=Array.prototype.slice,ya=Array.prototype.indexOf;c.fn=c.prototype={init:function(a,b){var d,f;if(!a)return this;if(a.nodeType){this.context=this[0]=a;this.length=1;return this}if(a==="body"&&!b){this.context=s;this[0]=s.body;this.selector="body";this.length=1;return this}if(typeof a==="string")if((d=Ta.exec(a))&&
percona-toolkit-3.2.1/config/sphinx-build/percona-theme/static/jquery.min.js:22:(d[1]||!b))if(d[1]){f=b?b.ownerDocument||b:s;if(a=Xa.exec(a))if(c.isPlainObject(b)){a=[s.createElement(a[1])];c.fn.attr.call(a,b,true)}else a=[f.createElement(a[1])];else{a=sa([d[1]],[f]);a=(a.cacheable?a.fragment.cloneNode(true):a.fragment).childNodes}return c.merge(this,a)}else{if(b=s.getElementById(d[2])){if(b.id!==d[2])return T.find(a);this.length=1;this[0]=b}this.context=s;this.selector=a;return this}else if(!b&&/^\w+$/.test(a)){this.selector=a;this.context=s;a=s.getElementsByTagName(a);return c.merge(this,
percona-toolkit-3.2.1/config/sphinx-build/percona-theme/static/jquery.min.js-23-a)}else return!b||b.jquery?(b||T).find(a):c(b).find(a);else if(c.isFunction(a))return T.ready(a);if(a.selector!==w){this.selector=a.selector;this.context=a.context}return c.makeArray(a,this)},selector:"",jquery:"1.4.2",length:0,size:function(){return this.length},toArray:function(){return R.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this.slice(a)[0]:this[a]},pushStack:function(a,b,d){var f=c();c.isArray(a)?ba.apply(f,a):c.merge(f,a);f.prevObject=this;f.context=this.context;if(b===
##############################################
percona-toolkit-3.2.1/config/sphinx-build/percona-theme/static/jquery.min.js-92-(function(){var g=s.createElement("div");g.innerHTML="<div class='test e'></div><div class='test'></div>";if(!(!g.getElementsByClassName||g.getElementsByClassName("e").length===0)){g.lastChild.className="e";if(g.getElementsByClassName("e").length!==1){n.order.splice(1,0,"CLASS");n.find.CLASS=function(h,l,m){if(typeof l.getElementsByClassName!=="undefined"&&!m)return l.getElementsByClassName(h[1])};g=null}}})();var E=s.compareDocumentPosition?function(g,h){return!!(g.compareDocumentPosition(h)&16)}:
percona-toolkit-3.2.1/config/sphinx-build/percona-theme/static/jquery.min.js:93:function(g,h){return g!==h&&(g.contains?g.contains(h):true)},x=function(g){return(g=(g?g.ownerDocument||g:0).documentElement)?g.nodeName!=="HTML":false},ga=function(g,h){var l=[],m="",q;for(h=h.nodeType?[h]:h;q=n.match.PSEUDO.exec(g);){m+=q[0];g=g.replace(n.match.PSEUDO,"")}g=n.relative[g]?g+"*":g;q=0;for(var p=h.length;q<p;q++)k(g,h[q],l);return k.filter(m,l)};c.find=k;c.expr=k.selectors;c.expr[":"]=c.expr.filters;c.unique=k.uniqueSort;c.text=a;c.isXMLDoc=x;c.contains=E})();var eb=/Until$/,fb=/^(?:parents|prevUntil|prevAll)/,
percona-toolkit-3.2.1/config/sphinx-build/percona-theme/static/jquery.min.js-94-gb=/,/;R=Array.prototype.slice;var Ia=function(a,b,d){if(c.isFunction(b))return c.grep(a,function(e,j){return!!b.call(e,j,e)===d});else if(b.nodeType)return c.grep(a,function(e){return e===b===d});else if(typeof b==="string"){var f=c.grep(a,function(e){return e.nodeType===1});if(Ua.test(b))return c.filter(b,f,!d);else b=c.filter(b,f)}return c.grep(a,function(e){return c.inArray(e,b)>=0===d})};c.fn.extend({find:function(a){for(var b=this.pushStack("","find",a),d=0,f=0,e=this.length;f<e;f++){d=b.length;
##############################################
percona-toolkit-3.2.1/config/sphinx-build/percona-theme/static/jquery.min.js-131-1223||a.status===0}catch(b){}return false},httpNotModified:function(a,b){var d=a.getResponseHeader("Last-Modified"),f=a.getResponseHeader("Etag");if(d)c.lastModified[b]=d;if(f)c.etag[b]=f;return a.status===304||a.status===0},httpData:function(a,b,d){var f=a.getResponseHeader("content-type")||"",e=b==="xml"||!b&&f.indexOf("xml")>=0;a=e?a.responseXML:a.responseText;e&&a.documentElement.nodeName==="parsererror"&&c.error("parsererror");if(d&&d.dataFilter)a=d.dataFilter(a,b);if(typeof a==="string")if(b===
percona-toolkit-3.2.1/config/sphinx-build/percona-theme/static/jquery.min.js:132:"json"||!b&&f.indexOf("json")>=0)a=c.parseJSON(a);else if(b==="script"||!b&&f.indexOf("javascript")>=0)c.globalEval(a);return a},param:function(a,b){function d(i,o){if(c.isArray(o))c.each(o,function(k,n){b||/\[\]$/.test(i)?f(i,n):d(i+"["+(typeof n==="object"||c.isArray(n)?k:"")+"]",n)});else!b&&o!=null&&typeof o==="object"?c.each(o,function(k,n){d(i+"["+k+"]",n)}):f(i,o)}function f(i,o){o=c.isFunction(o)?o():o;e[e.length]=encodeURIComponent(i)+"="+encodeURIComponent(o)}var e=[];if(b===w)b=c.ajaxSettings.traditional;
percona-toolkit-3.2.1/config/sphinx-build/percona-theme/static/jquery.min.js-133-if(c.isArray(a)||a.jquery)c.each(a,function(){f(this.name,this.value)});else for(var j in a)d(j,a[j]);return e.join("&").replace(yb,"+")}});var la={},Ab=/toggle|show|hide/,Bb=/^([+-]=)?([\d+-.]+)(.*)$/,W,va=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]];c.fn.extend({show:function(a,b){if(a||a===0)return this.animate(K("show",3),a,b);else{a=0;for(b=this.length;a<b;a++){var d=c.data(this[a],"olddisplay");
##############################################
percona-toolkit-3.2.1/docs/pt-secure-collect.rst-58- Temporary directory used for the data collection.
percona-toolkit-3.2.1/docs/pt-secure-collect.rst:59: Default: ``${HOME}/data_collection_{timestamp}``
percona-toolkit-3.2.1/docs/pt-secure-collect.rst-60-
##############################################
percona-toolkit-3.2.1/docs/release_notes.rst-837-
percona-toolkit-3.2.1/docs/release_notes.rst:838:* Fixed bug 1266869: pt-stalk would fail to start if ``$HOME`` environment variable was not set.
percona-toolkit-3.2.1/docs/release_notes.rst-839-
##############################################
percona-toolkit-3.2.1/lib/ChangeHandler.pm-312- }
percona-toolkit-3.2.1/lib/ChangeHandler.pm:313: my %in_where = map { $_ => 1 } @$cols;
percona-toolkit-3.2.1/lib/ChangeHandler.pm:314: my $where = $self->make_where_clause($row, $cols);
percona-toolkit-3.2.1/lib/ChangeHandler.pm-315- my @cols;
##############################################
percona-toolkit-3.2.1/lib/ChangeHandler.pm-391- if ( my $dbh = $self->{fetch_back} ) {
percona-toolkit-3.2.1/lib/ChangeHandler.pm:392: my $where = $self->make_where_clause($row, $cols);
percona-toolkit-3.2.1/lib/ChangeHandler.pm-393- my $sql = $self->make_fetch_back_query($where);
##############################################
percona-toolkit-3.2.1/lib/ChangeHandler.pm-517- # See https://bugs.launchpad.net/percona-toolkit/+bug/930693
percona-toolkit-3.2.1/lib/ChangeHandler.pm:518: $col = "IF(BINARY(`$col`)='', '', CONCAT('0x', HEX(`$col`))) AS `$col`";
percona-toolkit-3.2.1/lib/ChangeHandler.pm-519- }
percona-toolkit-3.2.1/lib/ChangeHandler.pm-520- else {
percona-toolkit-3.2.1/lib/ChangeHandler.pm:521: $col = "`$col`";
percona-toolkit-3.2.1/lib/ChangeHandler.pm-522- }
##############################################
percona-toolkit-3.2.1/lib/CompareResults.pm-528- # for the result sets' columns.
percona-toolkit-3.2.1/lib/CompareResults.pm:529: my $left_tbl = "`$db`.`mk_upgrade_left`";
percona-toolkit-3.2.1/lib/CompareResults.pm:530: my $right_tbl = "`$db`.`mk_upgrade_right`";
percona-toolkit-3.2.1/lib/CompareResults.pm-531- my $table_ddl = $self->make_table_ddl($res_struct);
##############################################
percona-toolkit-3.2.1/lib/CompareResults.pm-745- my $size = $struct->{size}->{$_} || '';
percona-toolkit-3.2.1/lib/CompareResults.pm:746: " `$name` $type$size,";
percona-toolkit-3.2.1/lib/CompareResults.pm-747- } @{$struct->{cols}}))
##############################################
percona-toolkit-3.2.1/lib/CompareResults.pm-995- }
percona-toolkit-3.2.1/lib/CompareResults.pm:996: $sql = "USE `$new_db`";
percona-toolkit-3.2.1/lib/CompareResults.pm-997- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/lib/DuplicateKeyFinder.pm-415- $ck_cols,
percona-toolkit-3.2.1/lib/DuplicateKeyFinder.pm:416: join(',', map { "`$_`" }
percona-toolkit-3.2.1/lib/DuplicateKeyFinder.pm-417- @{$keys->[$i]->{real_cols}})
##############################################
percona-toolkit-3.2.1/lib/EventAggregator.pm-759- my $attrib = $args{attrib};
percona-toolkit-3.2.1/lib/EventAggregator.pm:760: my $where = $args{where};
percona-toolkit-3.2.1/lib/EventAggregator.pm-761-
##############################################
percona-toolkit-3.2.1/lib/EventExecutor.pm-69- PTDEBUG && _d('New current db:', $db);
percona-toolkit-3.2.1/lib/EventExecutor.pm:70: $host->dbh->do("USE `$db`");
percona-toolkit-3.2.1/lib/EventExecutor.pm-71- $host->{current_db} = $db;
##############################################
percona-toolkit-3.2.1/lib/ExecutionThrottler.pm-17-# ###########################################################################
percona-toolkit-3.2.1/lib/ExecutionThrottler.pm:18:# ExecutionThrottler package
percona-toolkit-3.2.1/lib/ExecutionThrottler.pm-19-# ###########################################################################
##############################################
percona-toolkit-3.2.1/lib/ExecutionThrottler.pm-21-# Package: ExecutionThrottler
percona-toolkit-3.2.1/lib/ExecutionThrottler.pm:22:# ExecutionThrottle slows program execution if a threshold is exceeded.
percona-toolkit-3.2.1/lib/ExecutionThrottler.pm-23-package ExecutionThrottler;
##############################################
percona-toolkit-3.2.1/lib/IndexUsage.pm-239- my $insert_index_sth = $dbh->prepare(
percona-toolkit-3.2.1/lib/IndexUsage.pm:240: "INSERT INTO `$db`.`indexes` (db, tbl, idx, cnt) VALUES (?, ?, ?, ?) "
percona-toolkit-3.2.1/lib/IndexUsage.pm-241- . "ON DUPLICATE KEY UPDATE cnt = cnt + ?");
##############################################
percona-toolkit-3.2.1/lib/IndexUsage.pm-252- my $insert_tbl_sth = $dbh->prepare(
percona-toolkit-3.2.1/lib/IndexUsage.pm:253: "INSERT INTO `$db`.`tables` (db, tbl, cnt) VALUES (?, ?, ?) "
percona-toolkit-3.2.1/lib/IndexUsage.pm-254- . "ON DUPLICATE KEY UPDATE cnt = cnt + ?");
##############################################
percona-toolkit-3.2.1/lib/IndexUsage.pm-263- my $insert_query_sth = $dbh->prepare(
percona-toolkit-3.2.1/lib/IndexUsage.pm:264: "INSERT IGNORE INTO `$db`.`queries` (query_id, fingerprint, sample) "
percona-toolkit-3.2.1/lib/IndexUsage.pm-265- . " VALUES (CONV(?, 16, 10), ?, ?)");
##############################################
percona-toolkit-3.2.1/lib/IndexUsage.pm-273- my $insert_index_usage_sth = $dbh->prepare(
percona-toolkit-3.2.1/lib/IndexUsage.pm:274: "INSERT INTO `$db`.`index_usage` (query_id, db, tbl, idx, cnt) "
percona-toolkit-3.2.1/lib/IndexUsage.pm-275- . "VALUES (CONV(?, 16, 10), ?, ?, ?, ?) "
##############################################
percona-toolkit-3.2.1/lib/IndexUsage.pm-291- my $insert_index_alt_sth = $dbh->prepare(
percona-toolkit-3.2.1/lib/IndexUsage.pm:292: "INSERT INTO `$db`.`index_alternatives` "
percona-toolkit-3.2.1/lib/IndexUsage.pm-293- . "(query_id, db, tbl, idx, alt_idx, cnt) "
##############################################
percona-toolkit-3.2.1/lib/JSONReportFormatter.pm-265- attrib => $attrib,
percona-toolkit-3.2.1/lib/JSONReportFormatter.pm:266: where => $item,
percona-toolkit-3.2.1/lib/JSONReportFormatter.pm-267- );
##############################################
percona-toolkit-3.2.1/lib/JSONReportFormatter.pm-357- = 'SHOW TABLE STATUS'
percona-toolkit-3.2.1/lib/JSONReportFormatter.pm:358: . ($db ? " FROM `$db`" : '')
percona-toolkit-3.2.1/lib/JSONReportFormatter.pm-359- . " LIKE '$tbl'${mark}";
##############################################
percona-toolkit-3.2.1/lib/KeySize.pm-80- . ' FROM ' . $args{tbl_name}
percona-toolkit-3.2.1/lib/KeySize.pm:81: . ($key_exists ? " FORCE INDEX (`$name`)" : '')
percona-toolkit-3.2.1/lib/KeySize.pm-82- . ' WHERE ';
##############################################
percona-toolkit-3.2.1/lib/NibbleIterator.pm-80-
percona-toolkit-3.2.1/lib/NibbleIterator.pm:81: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/lib/NibbleIterator.pm-82- my $tbl_struct = $tbl->{tbl_struct};
##############################################
percona-toolkit-3.2.1/lib/NibbleIterator.pm-218-
percona-toolkit-3.2.1/lib/NibbleIterator.pm:219: my $from = "$tbl->{name} FORCE INDEX(`$index`)";
percona-toolkit-3.2.1/lib/NibbleIterator.pm-220- my $order_by = join(', ', map {$q->quote($_)} @{$index_cols});
##############################################
percona-toolkit-3.2.1/lib/NibbleIterator.pm-329- from => $from,
percona-toolkit-3.2.1/lib/NibbleIterator.pm:330: where => $where,
percona-toolkit-3.2.1/lib/NibbleIterator.pm-331- boundaries => $asc->{boundaries},
##############################################
percona-toolkit-3.2.1/lib/NibbleIterator.pm-534-
percona-toolkit-3.2.1/lib/NibbleIterator.pm:535: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/lib/NibbleIterator.pm-536-
##############################################
percona-toolkit-3.2.1/lib/NibbleIterator.pm-540- tbl => $tbl,
percona-toolkit-3.2.1/lib/NibbleIterator.pm:541: where => $where,
percona-toolkit-3.2.1/lib/NibbleIterator.pm-542- );
##############################################
percona-toolkit-3.2.1/lib/NibbleIterator.pm-685- my $sql = "SHOW INDEXES FROM $tbl->{name} "
percona-toolkit-3.2.1/lib/NibbleIterator.pm:686: . "WHERE Key_name = '$index'";
percona-toolkit-3.2.1/lib/NibbleIterator.pm-687- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/lib/OobNibbleIterator.pm-60- my $o = $self->{OptionParser};
percona-toolkit-3.2.1/lib/OobNibbleIterator.pm:61: my $where = $o->has('where') ? $o->get('where') : undef;
percona-toolkit-3.2.1/lib/OobNibbleIterator.pm-62-
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-78-eval {
percona-toolkit-3.2.1/lib/Percona/Test.pm:79: chomp(my $v = `$trunk/sandbox/test-env version 2>/dev/null`);
percona-toolkit-3.2.1/lib/Percona/Test.pm-80- $sandbox_version = $v if $v;
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-326- sub {
percona-toolkit-3.2.1/lib/Percona/Test.pm:327: my $retval = system("$cmd 2>/dev/null");
percona-toolkit-3.2.1/lib/Percona/Test.pm-328- return $retval >> 8 == 0 ? 1 : 0;
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-337- sub {
percona-toolkit-3.2.1/lib/Percona/Test.pm:338: my $output = `ps x | grep -v grep | grep "$cmd"`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-339- PTDEVDEBUG && _d($output);
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-540- if ( my $sed_args = $args{sed_out} ) {
percona-toolkit-3.2.1/lib/Percona/Test.pm:541: `cat $expected_output | sed $sed_args > /tmp/pt-test-outfile-trf`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-542- $expected_output = "/tmp/pt-test-outfile-trf";
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-555- else {
percona-toolkit-3.2.1/lib/Percona/Test.pm:556: `$cmd > $tmp_file`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-557- }
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-559- # Do optional arg stuff.
percona-toolkit-3.2.1/lib/Percona/Test.pm:560: `cp $tmp_file $tmp_file_orig`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-561- if ( my $trf = $args{trf} ) {
percona-toolkit-3.2.1/lib/Percona/Test.pm:562: `$trf $tmp_file_orig > $tmp_file`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-563- }
percona-toolkit-3.2.1/lib/Percona/Test.pm-564- if ( my $post_pipe = $args{post_pipe} ) {
percona-toolkit-3.2.1/lib/Percona/Test.pm:565: `cat $tmp_file | $post_pipe > $tmp_file-2`;
percona-toolkit-3.2.1/lib/Percona/Test.pm:566: `mv $tmp_file-2 $tmp_file`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-567- }
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-569- foreach my $sed_args ( @{$args{sed}} ) {
percona-toolkit-3.2.1/lib/Percona/Test.pm:570: `cat $tmp_file | sed $sed_args > $tmp_file-2`;
percona-toolkit-3.2.1/lib/Percona/Test.pm:571: `mv $tmp_file-2 $tmp_file`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-572- }
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-574- if ( defined(my $sort_args = $args{sort}) ) {
percona-toolkit-3.2.1/lib/Percona/Test.pm:575: `cat $tmp_file | sort $sort_args > $tmp_file-2`;
percona-toolkit-3.2.1/lib/Percona/Test.pm:576: `mv $tmp_file-2 $tmp_file`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-577- }
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-597- # diff the outputs.
percona-toolkit-3.2.1/lib/Percona/Test.pm:598: my $out = `diff $res_file $cmp_file`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-599- my $retval = $?;
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-607- if ( $ENV{UPDATE_SAMPLES} || $args{update_sample} ) {
percona-toolkit-3.2.1/lib/Percona/Test.pm:608: `cat $tmp_file > $expected_output`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-609- diag("Updated $expected_output");
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-613- # Remove our tmp files.
percona-toolkit-3.2.1/lib/Percona/Test.pm:614: `rm -f $tmp_file $tmp_file_orig /tmp/pt-test-outfile-trf >/dev/null 2>&1`
percona-toolkit-3.2.1/lib/Percona/Test.pm-615- unless $ENV{KEEP_OUTPUT} || $args{keep_output};
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-651- my $outfile = "/tmp/$tool-test-results.txt";
percona-toolkit-3.2.1/lib/Percona/Test.pm:652: `rm -rf $outfile >/dev/null`;
percona-toolkit-3.2.1/lib/Percona/Test.pm:653: `$trunk/util/test-bash-tool $tool > $outfile`;
percona-toolkit-3.2.1/lib/Percona/Test.pm:654: print `cat $outfile`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-655- return;
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-699- close $fh;
percona-toolkit-3.2.1/lib/Percona/Test.pm:700: my $normal_output = `cat $tmp_file | awk '/^[0-9 ]/ {print \$2 " " \$3 " " \$4 " " \$5 " " \$6 " " \$7 " " \$9} /^[A-Z]/ {print \$0}'`;
percona-toolkit-3.2.1/lib/Percona/Test.pm:701: `rm $tmp_file >/dev/null`;
percona-toolkit-3.2.1/lib/Percona/Test.pm-702- return $normal_output;
##############################################
percona-toolkit-3.2.1/lib/Percona/Test.pm-777- $db_tbl =~ s/^\s*`?//; # strip leading space and `
percona-toolkit-3.2.1/lib/Percona/Test.pm:778: $db_tbl =~ s/\s*`?$//; # strip trailing space and `
percona-toolkit-3.2.1/lib/Percona/Test.pm-779- $db_tbl =~ s/`\.`/./; # strip inner `.`
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-76-eval {
percona-toolkit-3.2.1/lib/PerconaTest.pm:77: chomp(my $v = `$trunk/sandbox/test-env version 2>/dev/null`);
percona-toolkit-3.2.1/lib/PerconaTest.pm-78- $sandbox_version = $v if $v;
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-320- sub {
percona-toolkit-3.2.1/lib/PerconaTest.pm:321: my $retval = system("$cmd 2>/dev/null");
percona-toolkit-3.2.1/lib/PerconaTest.pm-322- return $retval >> 8 == 0 ? 1 : 0;
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-333- if ( $pid_file ) {
percona-toolkit-3.2.1/lib/PerconaTest.pm:334: chomp($pid = `cat $pid_file 2>/dev/null`);
percona-toolkit-3.2.1/lib/PerconaTest.pm-335- }
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-364- sub {
percona-toolkit-3.2.1/lib/PerconaTest.pm:365: my $output = `ps x | grep -v grep | grep "$cmd"`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-366- PTDEVDEBUG && _d($output);
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-575- if ( my $sed_args = $args{sed_out} ) {
percona-toolkit-3.2.1/lib/PerconaTest.pm:576: `cat $expected_output | sed $sed_args > /tmp/pt-test-outfile-trf`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-577- $expected_output = "/tmp/pt-test-outfile-trf";
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-589- elsif ( -f $cmd ) {
percona-toolkit-3.2.1/lib/PerconaTest.pm:590: `cp $cmd $tmp_file`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-591- }
percona-toolkit-3.2.1/lib/PerconaTest.pm-592- else {
percona-toolkit-3.2.1/lib/PerconaTest.pm:593: `$cmd > $tmp_file`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-594- }
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-596- # Do optional arg stuff.
percona-toolkit-3.2.1/lib/PerconaTest.pm:597: `cp $tmp_file $tmp_file_orig`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-598- if ( my $trf = $args{trf} ) {
percona-toolkit-3.2.1/lib/PerconaTest.pm:599: `$trf $tmp_file_orig > $tmp_file`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-600- }
percona-toolkit-3.2.1/lib/PerconaTest.pm-601- if ( my $post_pipe = $args{post_pipe} ) {
percona-toolkit-3.2.1/lib/PerconaTest.pm:602: `cat $tmp_file | $post_pipe > $tmp_file-2`;
percona-toolkit-3.2.1/lib/PerconaTest.pm:603: `mv $tmp_file-2 $tmp_file`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-604- }
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-606- foreach my $sed_args ( @{$args{sed}} ) {
percona-toolkit-3.2.1/lib/PerconaTest.pm:607: `cat $tmp_file | sed $sed_args > $tmp_file-2`;
percona-toolkit-3.2.1/lib/PerconaTest.pm:608: `mv $tmp_file-2 $tmp_file`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-609- }
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-611- if ( defined(my $sort_args = $args{sort}) ) {
percona-toolkit-3.2.1/lib/PerconaTest.pm:612: `cat $tmp_file | sort $sort_args > $tmp_file-2`;
percona-toolkit-3.2.1/lib/PerconaTest.pm:613: `mv $tmp_file-2 $tmp_file`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-614- }
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-634- # diff the outputs.
percona-toolkit-3.2.1/lib/PerconaTest.pm:635: $test_diff = `diff $res_file $cmp_file 2>&1`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-636- my $retval = $?;
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-643- if ( $ENV{UPDATE_SAMPLES} || $args{update_sample} ) {
percona-toolkit-3.2.1/lib/PerconaTest.pm:644: `cat $tmp_file > $expected_output`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-645- diag("Updated $expected_output");
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-649- # Remove our tmp files.
percona-toolkit-3.2.1/lib/PerconaTest.pm:650: `rm -f $tmp_file $tmp_file_orig /tmp/pt-test-outfile-trf >/dev/null 2>&1`
percona-toolkit-3.2.1/lib/PerconaTest.pm-651- unless $ENV{KEEP_OUTPUT} || $args{keep_output};
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-687- my $outfile = "/tmp/$tool-test-results.txt";
percona-toolkit-3.2.1/lib/PerconaTest.pm:688: `rm -rf $outfile >/dev/null`;
percona-toolkit-3.2.1/lib/PerconaTest.pm:689: `$trunk/util/test-bash-tool $tool > $outfile`;
percona-toolkit-3.2.1/lib/PerconaTest.pm:690: print `cat $outfile`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-691- return;
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-735- close $fh;
percona-toolkit-3.2.1/lib/PerconaTest.pm:736: my $normal_output = `cat $tmp_file | awk '/^[0-9 ]/ {print \$2 " " \$3 " " \$4 " " \$5 " " \$6 " " \$7 " " \$9} /^[A-Z]/ {print \$0}'`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-737- if ( wantarray ) {
percona-toolkit-3.2.1/lib/PerconaTest.pm:738: my $original_output = `cat $tmp_file`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-739- return $normal_output, $original_output;
percona-toolkit-3.2.1/lib/PerconaTest.pm-740- }
percona-toolkit-3.2.1/lib/PerconaTest.pm:741: `rm $tmp_file >/dev/null`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-742- return $normal_output;
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-818- $db_tbl =~ s/^\s*`?//; # strip leading space and `
percona-toolkit-3.2.1/lib/PerconaTest.pm:819: $db_tbl =~ s/\s*`?$//; # strip trailing space and `
percona-toolkit-3.2.1/lib/PerconaTest.pm-820- $db_tbl =~ s/`\.`/./; # strip inner `.`
##############################################
percona-toolkit-3.2.1/lib/PerconaTest.pm-834- $cmd =~ s/-/\\-/g;
percona-toolkit-3.2.1/lib/PerconaTest.pm:835: my $output = `ps xww | grep -v grep | grep '$cmd'`;
percona-toolkit-3.2.1/lib/PerconaTest.pm-836- my @cmds = $output =~ m/\n/g;
##############################################
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm-194- eval {
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm:195: my $mem = `ps -o rss,vsz -p $PID 2>&1`;
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm-196- ( $rss, $vsz ) = $mem =~ m/(\d+)/g;
##############################################
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm-582- $vals{variance_to_mean} = do {
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm:583: my $query_time = $ea->metrics(where => $item, attrib => 'Query_time');
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm-584- $query_time->{stddev}**2 / ($query_time->{avg} || 1)
##############################################
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm-859- my $samp_query = $sample->{arg} || '';
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm:860: my $query_time = $ea->metrics(where => $item, attrib => 'Query_time');
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm-861-
##############################################
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm-1293- $tables .= '# SHOW TABLE STATUS'
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm:1294: . ($db ? " FROM `$db`" : '')
percona-toolkit-3.2.1/lib/QueryReportFormatter.pm-1295- . " LIKE '$tbl'${mark}\n";
##############################################
percona-toolkit-3.2.1/lib/Quoter.pm-59- }
percona-toolkit-3.2.1/lib/Quoter.pm:60: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/lib/Quoter.pm-61-}
##############################################
percona-toolkit-3.2.1/lib/Quoter.pm-156- }
percona-toolkit-3.2.1/lib/Quoter.pm:157: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/lib/Quoter.pm:158: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/lib/Quoter.pm-159- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/lib/ResultWriter.pm-115- PTDEBUG && _d('New current db:', $db);
percona-toolkit-3.2.1/lib/ResultWriter.pm:116: print { $self->_query_fh } "use `$db`;\n";
percona-toolkit-3.2.1/lib/ResultWriter.pm-117- $self->current_database($db);
##############################################
percona-toolkit-3.2.1/lib/Safeguards.pm-42- # /dev/disk0s2 118153176 94409664 23487512 81% /
percona-toolkit-3.2.1/lib/Safeguards.pm:43: my $disk_space = `df -P -k "$filesystem"`;
percona-toolkit-3.2.1/lib/Safeguards.pm-44- chop($disk_space) if $disk_space;
##############################################
percona-toolkit-3.2.1/lib/Sandbox.pm-99- PTDEBUG && _d('"Executing', $use, 'on', $server);
percona-toolkit-3.2.1/lib/Sandbox.pm:100: my $out = `$use 2>&1`;
percona-toolkit-3.2.1/lib/Sandbox.pm-101- if ( $? >> 8 ) {
##############################################
percona-toolkit-3.2.1/lib/Sandbox.pm-119- foreach my $db ( @$dbs ) {
percona-toolkit-3.2.1/lib/Sandbox.pm:120: $dbh->do("DROP DATABASE IF EXISTS `$db`") if $args{drop};
percona-toolkit-3.2.1/lib/Sandbox.pm-121-
percona-toolkit-3.2.1/lib/Sandbox.pm:122: my $sql = "CREATE DATABASE `$db`";
percona-toolkit-3.2.1/lib/Sandbox.pm-123- eval {
##############################################
percona-toolkit-3.2.1/lib/Sandbox.pm-168- PTDEBUG && _d('Loading', $file, 'on', $server, ':', $use);
percona-toolkit-3.2.1/lib/Sandbox.pm:169: my $out = `$use 2>&1`;
percona-toolkit-3.2.1/lib/Sandbox.pm-170- if ( $? >> 8 ) {
##############################################
percona-toolkit-3.2.1/lib/Sandbox.pm-209- next if $db =~ m/$test_dbs/;
percona-toolkit-3.2.1/lib/Sandbox.pm:210: $dbh->do("DROP DATABASE IF EXISTS `$db`");
percona-toolkit-3.2.1/lib/Sandbox.pm-211- }
##############################################
percona-toolkit-3.2.1/lib/Sandbox.pm-430- PTDEVDEBUG && _d('Clearing general log on', $host);
percona-toolkit-3.2.1/lib/Sandbox.pm:431: Test::More::diag(`echo > /tmp/$port_for{$host}/data/genlog`);
percona-toolkit-3.2.1/lib/Sandbox.pm-432- }
##############################################
percona-toolkit-3.2.1/lib/Sandbox.pm-490- if ( $type eq 'master') {
percona-toolkit-3.2.1/lib/Sandbox.pm:491: my $out = `$env $trunk/sandbox/start-sandbox $type $port`;
percona-toolkit-3.2.1/lib/Sandbox.pm-492- die $out if $CHILD_ERROR;
##############################################
percona-toolkit-3.2.1/lib/Sandbox.pm-498-
percona-toolkit-3.2.1/lib/Sandbox.pm:499: my $out = `$env $trunk/sandbox/start-sandbox $type $port $master_port`;
percona-toolkit-3.2.1/lib/Sandbox.pm-500- die $out if $CHILD_ERROR;
##############################################
percona-toolkit-3.2.1/lib/Sandbox.pm-503- my $first_node = $args{first_node} ? $port_for{$args{first_node}} : '';
percona-toolkit-3.2.1/lib/Sandbox.pm:504: my $out = `$env $trunk/sandbox/start-sandbox cluster $port $first_node`;
percona-toolkit-3.2.1/lib/Sandbox.pm-505- die $out if $CHILD_ERROR;
##############################################
percona-toolkit-3.2.1/lib/Sandbox.pm-516- my @ports = @port_for{@sandboxes};
percona-toolkit-3.2.1/lib/Sandbox.pm:517: my $out = `$trunk/sandbox/stop-sandbox @ports`;
percona-toolkit-3.2.1/lib/Sandbox.pm-518- die $out if $CHILD_ERROR;
##############################################
percona-toolkit-3.2.1/lib/SchemaIterator.pm-264- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/lib/SchemaIterator.pm:265: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/lib/SchemaIterator.pm-266- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/lib/TableChunker.pm-408- die "Error calculating chunk start and end points for table "
percona-toolkit-3.2.1/lib/TableChunker.pm:409: . "`$args{tbl_struct}->{name}` on column `$args{chunk_col}` "
percona-toolkit-3.2.1/lib/TableChunker.pm-410- . "with min/max values "
##############################################
percona-toolkit-3.2.1/lib/TableChunker.pm-868- my ($dbh, $db, $tbl, $col) = @args{@required_args};
percona-toolkit-3.2.1/lib/TableChunker.pm:869: my $where = $args{where};
percona-toolkit-3.2.1/lib/TableChunker.pm-870- my $q = $self->{Quoter};
##############################################
percona-toolkit-3.2.1/lib/TableChunker.pm-955- $query =~ s!/\*PROGRESS_COMMENT\*/!$comment!;
percona-toolkit-3.2.1/lib/TableChunker.pm:956: my $where = "WHERE (" . $args{chunks}->[$args{chunk_num}] . ')';
percona-toolkit-3.2.1/lib/TableChunker.pm-957- if ( $args{where} && grep { $_ } @{$args{where}} ) {
##############################################
percona-toolkit-3.2.1/lib/TableChunker.pm-965- PTDEBUG && _d('Parameters:',
percona-toolkit-3.2.1/lib/TableChunker.pm:966: Dumper({WHERE => $where, DB_TBL => $db_tbl, INDEX_HINT => $index_hint}));
percona-toolkit-3.2.1/lib/TableChunker.pm-967- $query =~ s!/\*WHERE\*/! $where!;
##############################################
percona-toolkit-3.2.1/lib/TableNibbler.pm-121- # Generate all 4 types, then choose the right one.
percona-toolkit-3.2.1/lib/TableNibbler.pm:122: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/lib/TableNibbler.pm-123- type => $cmp,
##############################################
percona-toolkit-3.2.1/lib/TableNibbler.pm-220- scols => \@r_scols,
percona-toolkit-3.2.1/lib/TableNibbler.pm:221: where => $result,
percona-toolkit-3.2.1/lib/TableNibbler.pm-222- };
##############################################
percona-toolkit-3.2.1/lib/TableParser.pm-153- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/lib/TableParser.pm:154: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/lib/TableParser.pm-155-
##############################################
percona-toolkit-3.2.1/lib/TableParser.pm-424-
percona-toolkit-3.2.1/lib/TableParser.pm:425: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/lib/TableParser.pm-426-
##############################################
percona-toolkit-3.2.1/lib/TableParser.pm-545- $val =~ s/""/"/g;
percona-toolkit-3.2.1/lib/TableParser.pm:546: return "`$val`";
percona-toolkit-3.2.1/lib/TableParser.pm-547-}
##############################################
percona-toolkit-3.2.1/lib/TableSyncChunk.pm-214- index_hint => $self->{index_hint},
percona-toolkit-3.2.1/lib/TableSyncChunk.pm:215: where => [ $args{where} ],
percona-toolkit-3.2.1/lib/TableSyncChunk.pm-216- );
##############################################
percona-toolkit-3.2.1/lib/TableSyncNibble.pm-102- eval {
percona-toolkit-3.2.1/lib/TableSyncNibble.pm:103: my $sql = "SHOW TABLE STATUS FROM `$db` LIKE "
percona-toolkit-3.2.1/lib/TableSyncNibble.pm-104- . $self->{Quoter}->literal_like($tbl);
##############################################
percona-toolkit-3.2.1/lib/TableSyncNibble.pm-211- # Selects the rows as a nibble (aka a chunk).
percona-toolkit-3.2.1/lib/TableSyncNibble.pm:212: my $where = $self->__get_boundaries(%args);
percona-toolkit-3.2.1/lib/TableSyncNibble.pm-213- return $self->{TableChunker}->inject_chunks(
##############################################
percona-toolkit-3.2.1/lib/TableSyncNibble.pm-219- index_hint => $self->{index_hint},
percona-toolkit-3.2.1/lib/TableSyncNibble.pm:220: where => [ $args{where} ],
percona-toolkit-3.2.1/lib/TableSyncNibble.pm-221- );
##############################################
percona-toolkit-3.2.1/lib/TableSyncNibble.pm-273- . " because MySQL chose "
percona-toolkit-3.2.1/lib/TableSyncNibble.pm:274: . ($explain_index ? "the `$explain_index`" : 'no') . ' index'
percona-toolkit-3.2.1/lib/TableSyncNibble.pm:275: . " instead of the `$s->{index}` index";
percona-toolkit-3.2.1/lib/TableSyncNibble.pm-276- }
##############################################
percona-toolkit-3.2.1/lib/TableSyncNibble.pm-300- # Do not append option where arg here; it is added by the caller.
percona-toolkit-3.2.1/lib/TableSyncNibble.pm:301: my $where = $lb ? "($lb AND $ub)" : $ub;
percona-toolkit-3.2.1/lib/TableSyncNibble.pm-302-
##############################################
percona-toolkit-3.2.1/lib/TableSyncer.pm-200- eval {
percona-toolkit-3.2.1/lib/TableSyncer.pm:201: $src->{dbh}->do("USE `$src->{db}`");
percona-toolkit-3.2.1/lib/TableSyncer.pm:202: $dst->{dbh}->do("USE `$dst->{db}`");
percona-toolkit-3.2.1/lib/TableSyncer.pm-203- };
##############################################
percona-toolkit-3.2.1/lib/TableSyncer.pm-242- table => $src->{tbl},
percona-toolkit-3.2.1/lib/TableSyncer.pm:243: where => $args{where},
percona-toolkit-3.2.1/lib/TableSyncer.pm-244- );
##############################################
percona-toolkit-3.2.1/lib/TableSyncer.pm-247- table => $dst->{tbl},
percona-toolkit-3.2.1/lib/TableSyncer.pm:248: where => $args{where},
percona-toolkit-3.2.1/lib/TableSyncer.pm-249- );
##############################################
percona-toolkit-3.2.1/lib/TableUsage.pm-236- tables => $tables,
percona-toolkit-3.2.1/lib/TableUsage.pm:237: where => $query_struct->{where},
percona-toolkit-3.2.1/lib/TableUsage.pm-238- );
##############################################
percona-toolkit-3.2.1/lib/TableUsage.pm-382- tables => $tables,
percona-toolkit-3.2.1/lib/TableUsage.pm:383: where => $table->{join}->{where},
percona-toolkit-3.2.1/lib/TableUsage.pm-384- clause => 'JOIN condition', # just for debugging
##############################################
percona-toolkit-3.2.1/lib/TableUsage.pm-842- if ( $db ) {
percona-toolkit-3.2.1/lib/TableUsage.pm:843: $sql = "USE `$db`";
percona-toolkit-3.2.1/lib/TableUsage.pm-844- PTDEBUG && _d($dbh, $sql);
##############################################
percona-toolkit-3.2.1/lib/TableUsage.pm-900- $val =~ s/""/"/g;
percona-toolkit-3.2.1/lib/TableUsage.pm:901: return "`$val`";
percona-toolkit-3.2.1/lib/TableUsage.pm-902-}
##############################################
percona-toolkit-3.2.1/lib/VersionCheck.pm-595- chomp(my $lsb_release
percona-toolkit-3.2.1/lib/VersionCheck.pm:596: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/lib/VersionCheck.pm-597- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/lib/VersionCheck.pm-611- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/lib/VersionCheck.pm:612: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/lib/VersionCheck.pm-613- }
##############################################
percona-toolkit-3.2.1/lib/VersionCheck.pm-621- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/lib/VersionCheck.pm:622: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/lib/VersionCheck.pm-623- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/lib/bash/collect.sh-158- if [ "$CMD_DMESG" ]; then
percona-toolkit-3.2.1/lib/bash/collect.sh:159: local UPTIME=`cat /proc/uptime | awk '{ print $1 }'`
percona-toolkit-3.2.1/lib/bash/collect.sh-160- local START_TIME=$(echo "$UPTIME 60" | awk '{print ($1 - $2)}')
##############################################
percona-toolkit-3.2.1/lib/bash/collect.sh-420-
percona-toolkit-3.2.1/lib/bash/collect.sh:421: has_rocksdb=`$CMD_MYSQL $EXT_ARGV -e "SHOW ENGINES" | grep -i 'rocksdb'`
percona-toolkit-3.2.1/lib/bash/collect.sh-422- exit_code=$?
##############################################
percona-toolkit-3.2.1/lib/bash/tmpdir.sh-47- local pid="$$"
percona-toolkit-3.2.1/lib/bash/tmpdir.sh:48: PT_TMPDIR=`mktemp -d -t "${tool}.${pid}.XXXXXX"` \
percona-toolkit-3.2.1/lib/bash/tmpdir.sh-49- || die "Cannot make secure tmpdir"
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-7-* The `format_bytes` function now shows no decimal places when outputting a simple bytes value
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md:8:* The `processlist`/`x$processlist` views where improved, changes include:
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-9- * The `pid` and `program_name` of the connection are shown, if set within the `performance_schema.session_connect_attrs` table (**Contributed by Daniël van Eeden**)
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-13-* A new `metrics` view has been added. On 5.7 this provides a union view of the performance_schema.global_status and information_schema.innodb_metrics tables, along with P_S memory and the current time, as a single metrics output. On 5.6 it provides a union view of the information_schema.global_status and information_schema.innodb_metrics tables, along with the current time. (**Contributed by Jesper Wisborg Krogh**)
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md:14:* New `session`/`x$session` views have been added, which give the same output as the `processlist` view counterparts, but filtered to only show foreground connections (**Contributed by Morgan Tocker**)
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-15-* A new `session_ssl_status` view was added, which shows the SSL version, ciper and session resuse statistics for each connection (**Contributed by Daniël van Eeden**)
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-16-* A new `schema_auto_increment_columns` view was added, that shows statistics on each auto_incrment within the instance, including the `auto_increment_ratio`, so you can easily monitor how full specific auto_increment columns are (**Contributed by Shlomi Noach**)
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md:17:* A new `schema_redundant_indexes` view was added, that shows indexes made redundant (or duplicated) by other more dominant indexes. Also includes the the helper view `x$schema_flattened_keys`. (**Contributed by Shlomi Noach**)
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md:18:* New `schema_table_lock_waits`/`x$schema_table_lock_waits` views have been added, which show any sessions that are waiting for table level metadata locks, and the sessions that are blocking them. Resolves Git Issue #57, inspired by the suggestion from Daniël van Eeden
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-19-* The `innodb_lock_waits` view had the following columns added to it, following a manually merged contribution from Shlomi Noach for a similar view
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-54-* Fixed the `ps_setup_reset_to_default()` procedure to also set the new `ENABLED` column within `performance_schema.setup_actors` within 5.7
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md:55:* The `user_summary_by_file_io`/`x$user_summary_by_file_io` and `host_summary_by_file_io`/`x$host_summary_by_file_io` tables were incorrectly aggregating all wait events, not just `wait/io/file/%`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-56-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-73-* The beginnings of a mysql-test suite have been added
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md:74:* The `innodb_lock_waits`/`x$innodb_lock_waits` views were improved (**Contributions by both Jesper Wisborg Krogh and Mark Matthews**)
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-75- * Added the `wait_started`, `wait_age`, `waiting_trx_started` `waiting_trx_age`, `waiting_trx_rows_locked` and `waiting_trx_rows_modified` columns for waiting transactions
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-88-
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md:89:* The 5.6 `host_summary` and `x$host_summary` views incorrectly had the column with `COUNT(DISTINCT accounts.user)` named `unique_hosts` instead of `unique_users` (**Contributed by Jesper Wisborg Krogh**)
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-90-* Both the `format_time` and `format_bytes` took a BIGINT as input, and output VARCHAR, but BIGINT could be too small for aggregated values for the inputs. Now both functions both use TEXT as their input (Issue #34, Issue #38)
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-160-* Improved each of the user specific views to return aggregate values for `background` threads, instead of ignoring them (**Contributed by Joe Grasse**)
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md:161:* Optimized the `schema_table_statistics` and `schema_table_statistics_with_buffer` views, to use a new view that will get materialized (`x$ps_schema_table_statistics_io`), along with the changes to the RETURN types for `extract_schema_from_file_name` and `extract_table_from_file_name`, this results in a significant performance improvement - in one test changing the run time from 14 minutes to 20 seconds. (**Conceived by Roy Lyseng, Mark Leith and Jesper Wisborg Krogh, implemented and contributed by Jesper Wisborg Krogh**)
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/NEWS.md-162-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/README.md-1395-
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/README.md:1396:The output includes both background threads and user connections by default. See also `session` / `x$session`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/README.md-1397-for a view that contains only user session information.
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/README.md-1802-
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/README.md:1803:Also includes the the helper view `x$schema_flattened_keys`.
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/README.md-1804-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/generate_sql_file.sh-22-# Grab the current sys version
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/generate_sql_file.sh:23:SYSVERSIONTMP=`cat views/version.sql | grep 'AS sys_version' | awk '{print $2}'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/generate_sql_file.sh:24:SYSVERSION=`echo "${SYSVERSIONTMP//\'}"`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/generate_sql_file.sh-25-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-52-connection default;
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:53:--let $digest_insert= `SELECT DIGEST FROM performance_schema.events_statements_current WHERE THREAD_ID = $con1_thread_id ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-54-connection con1;
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-56-connection default;
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:57:--let $digest_update= `SELECT DIGEST FROM performance_schema.events_statements_current WHERE THREAD_ID = $con1_thread_id ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-58-connection con1;
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-60-connection default;
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:61:--let $digest_select= `SELECT DIGEST FROM performance_schema.events_statements_current WHERE THREAD_ID = $con1_thread_id ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-62-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-86-# with_runtimes_in_95th_percentile
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:87:--let $o_upd_total_latency= `SELECT total_latency FROM sys.statements_with_runtimes_in_95th_percentile WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:88:--let $o_upd_max_latency= `SELECT max_latency FROM sys.statements_with_runtimes_in_95th_percentile WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:89:--let $o_upd_avg_latency= `SELECT avg_latency FROM sys.statements_with_runtimes_in_95th_percentile WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:90:--let $o_upd_first_seen= `SELECT first_seen FROM sys.statements_with_runtimes_in_95th_percentile WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:91:--let $o_upd_last_seen= `SELECT last_seen FROM sys.statements_with_runtimes_in_95th_percentile WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-92---replace_result $digest_update DIGEST_UPDATE $o_upd_total_latency O_UPD_TOTAL_LATENCY $o_upd_max_latency O_UPD_MAX_LATENCY $o_upd_avg_latency O_UPD_AVG_LATENCY $o_upd_first_seen O_UPD_FIRST_SEEN $o_upd_last_seen O_UPD_LAST_SEEN
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-94-
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:95:--let $d_upd_total_latency= `SELECT sys.format_time(TIMER_WAIT) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_update' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-96---replace_result $digest_update DIGEST_UPDATE $d_upd_total_latency D_UPD_LATENCY $o_upd_max_latency D_UPD_LATENCY $o_upd_first_seen O_UPD_FIRST_SEEN $o_upd_last_seen O_UPD_LAST_SEEN
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-100-# So replace_result cannot be used to give it a unique value. Instead just use LOCK_LATENCY for all rows.
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:101:--let $o_upd_total_latency= `SELECT total_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:102:--let $o_upd_max_latency= `SELECT max_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:103:--let $o_upd_avg_latency= `SELECT avg_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:104:--let $o_upd_lock_latency= `SELECT lock_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:105:--let $o_upd_first_seen= `SELECT first_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:106:--let $o_upd_last_seen= `SELECT last_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:107:--let $o_sel_total_latency= `SELECT total_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:108:--let $o_sel_max_latency= `SELECT max_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:109:--let $o_sel_avg_latency= `SELECT avg_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:110:--let $o_sel_lock_latency= `SELECT lock_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:111:--let $o_sel_first_seen= `SELECT first_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:112:--let $o_sel_last_seen= `SELECT last_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:113:--let $o_ins_total_latency= `SELECT total_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:114:--let $o_ins_max_latency= `SELECT max_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:115:--let $o_ins_avg_latency= `SELECT avg_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:116:--let $o_ins_lock_latency= `SELECT lock_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:117:--let $o_ins_first_seen= `SELECT first_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:118:--let $o_ins_last_seen= `SELECT last_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-119---replace_result $digest_insert DIGEST_INSERT $digest_update DIGEST_UPDATE $digest_select DIGEST_SELECT $o_upd_total_latency O_UPD_TOTAL_LATENCY $o_upd_max_latency O_UPD_MAX_LATENCY $o_upd_avg_latency O_UPD_AVG_LATENCY $o_upd_lock_latency LOCK_LATENCY $o_upd_first_seen O_UPD_FIRST_SEEN $o_upd_last_seen O_UPD_LAST_SEEN $o_sel_total_latency O_SEL_TOTAL_LATENCY $o_sel_max_latency O_SEL_MAX_LATENCY $o_sel_avg_latency O_SEL_AVG_LATENCY $o_sel_lock_latency LOCK_LATENCY $o_sel_first_seen O_SEL_FIRST_SEEN $o_sel_last_seen O_SEL_LAST_SEEN $o_ins_total_latency O_INS_TOTAL_LATENCY $o_ins_max_latency O_INS_MAX_LATENCY $o_ins_avg_latency O_INS_AVG_LATENCY $o_ins_lock_latency LOCK_LATENCY $o_ins_first_seen O_INS_FIRST_SEEN $o_ins_last_seen O_INS_LAST_SEEN
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-121-
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:122:--let $d_sel_total_latency= `SELECT sys.format_time(TIMER_WAIT) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_select' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:123:--let $d_ins_total_latency= `SELECT sys.format_time(TIMER_WAIT) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_insert' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:124:--let $d_upd_tock_latency= `SELECT sys.format_time(LOCK_TIME) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_update' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:125:--let $d_sel_tock_latency= `SELECT sys.format_time(LOCK_TIME) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_select' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:126:--let $d_ins_tock_latency= `SELECT sys.format_time(LOCK_TIME) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_insert' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-127---replace_result $digest_insert DIGEST_INSERT $digest_update DIGEST_UPDATE $digest_select DIGEST_SELECT $d_upd_total_latency D_UPD_LATENCY $o_upd_max_latency D_UPD_LATENCY $o_upd_first_seen O_UPD_FIRST_SEEN $o_upd_last_seen O_UPD_LAST_SEEN $d_upd_tock_latency LOCK_LATENCY $d_sel_total_latency D_SEL_LATENCY $o_sel_max_latency D_SEL_LATENCY $o_sel_first_seen O_SEL_FIRST_SEEN $o_sel_last_seen O_SEL_LAST_SEEN $d_sel_tock_latency LOCK_LATENCY $d_ins_total_latency D_INS_LATENCY $o_ins_max_latency D_INS_LATENCY $o_ins_first_seen O_INS_FIRST_SEEN $o_ins_last_seen O_INS_LAST_SEEN $d_ins_tock_latency LOCK_LATENCY
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/procedures/diagnostics.sql-646- CALL sys.execute_prepared_stmt(CONCAT('DROP TEMPORARY TABLE IF EXISTS `tmp_', v_table_name, '_start`'));
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/procedures/diagnostics.sql:647: CALL sys.execute_prepared_stmt(CONCAT('CREATE TEMPORARY TABLE `tmp_', v_table_name, '_start` SELECT * FROM `sys`.`x$', v_table_name, '`'));
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/procedures/diagnostics.sql-648-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/procedures/diagnostics.sql-996- CALL sys.execute_prepared_stmt(CONCAT('DROP TEMPORARY TABLE IF EXISTS `tmp_', v_table_name, '_end`'));
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/procedures/diagnostics.sql:997: CALL sys.execute_prepared_stmt(CONCAT('CREATE TEMPORARY TABLE `tmp_', v_table_name, '_end` SELECT * FROM `sys`.`x$', v_table_name, '`'));
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/procedures/diagnostics.sql-998-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/procedures/statement_performance_analyzer.sql-568- 'sys.x$ps_digest_95th_percentile_by_avg_us',
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/procedures/statement_performance_analyzer.sql:569: '`sys`.`x$ps_digest_95th_percentile_by_avg_us`'
percona-toolkit-3.2.1/sandbox/servers/5.6/sys/procedures/statement_performance_analyzer.sql-570- );
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-7-* The `format_bytes` function now shows no decimal places when outputting a simple bytes value
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md:8:* The `processlist`/`x$processlist` views where improved, changes include:
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-9- * The `pid` and `program_name` of the connection are shown, if set within the `performance_schema.session_connect_attrs` table (**Contributed by Daniël van Eeden**)
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-13-* A new `metrics` view has been added. On 5.7 this provides a union view of the performance_schema.global_status and information_schema.innodb_metrics tables, along with P_S memory and the current time, as a single metrics output. On 5.6 it provides a union view of the information_schema.global_status and information_schema.innodb_metrics tables, along with the current time. (**Contributed by Jesper Wisborg Krogh**)
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md:14:* New `session`/`x$session` views have been added, which give the same output as the `processlist` view counterparts, but filtered to only show foreground connections (**Contributed by Morgan Tocker**)
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-15-* A new `session_ssl_status` view was added, which shows the SSL version, ciper and session resuse statistics for each connection (**Contributed by Daniël van Eeden**)
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-16-* A new `schema_auto_increment_columns` view was added, that shows statistics on each auto_incrment within the instance, including the `auto_increment_ratio`, so you can easily monitor how full specific auto_increment columns are (**Contributed by Shlomi Noach**)
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md:17:* A new `schema_redundant_indexes` view was added, that shows indexes made redundant (or duplicated) by other more dominant indexes. Also includes the the helper view `x$schema_flattened_keys`. (**Contributed by Shlomi Noach**)
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md:18:* New `schema_table_lock_waits`/`x$schema_table_lock_waits` views have been added, which show any sessions that are waiting for table level metadata locks, and the sessions that are blocking them. Resolves Git Issue #57, inspired by the suggestion from Daniël van Eeden
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-19-* The `innodb_lock_waits` view had the following columns added to it, following a manually merged contribution from Shlomi Noach for a similar view
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-54-* Fixed the `ps_setup_reset_to_default()` procedure to also set the new `ENABLED` column within `performance_schema.setup_actors` within 5.7
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md:55:* The `user_summary_by_file_io`/`x$user_summary_by_file_io` and `host_summary_by_file_io`/`x$host_summary_by_file_io` tables were incorrectly aggregating all wait events, not just `wait/io/file/%`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-56-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-73-* The beginnings of a mysql-test suite have been added
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md:74:* The `innodb_lock_waits`/`x$innodb_lock_waits` views were improved (**Contributions by both Jesper Wisborg Krogh and Mark Matthews**)
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-75- * Added the `wait_started`, `wait_age`, `waiting_trx_started` `waiting_trx_age`, `waiting_trx_rows_locked` and `waiting_trx_rows_modified` columns for waiting transactions
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-88-
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md:89:* The 5.6 `host_summary` and `x$host_summary` views incorrectly had the column with `COUNT(DISTINCT accounts.user)` named `unique_hosts` instead of `unique_users` (**Contributed by Jesper Wisborg Krogh**)
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-90-* Both the `format_time` and `format_bytes` took a BIGINT as input, and output VARCHAR, but BIGINT could be too small for aggregated values for the inputs. Now both functions both use TEXT as their input (Issue #34, Issue #38)
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-160-* Improved each of the user specific views to return aggregate values for `background` threads, instead of ignoring them (**Contributed by Joe Grasse**)
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md:161:* Optimized the `schema_table_statistics` and `schema_table_statistics_with_buffer` views, to use a new view that will get materialized (`x$ps_schema_table_statistics_io`), along with the changes to the RETURN types for `extract_schema_from_file_name` and `extract_table_from_file_name`, this results in a significant performance improvement - in one test changing the run time from 14 minutes to 20 seconds. (**Conceived by Roy Lyseng, Mark Leith and Jesper Wisborg Krogh, implemented and contributed by Jesper Wisborg Krogh**)
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/NEWS.md-162-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/README.md-1395-
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/README.md:1396:The output includes both background threads and user connections by default. See also `session` / `x$session`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/README.md-1397-for a view that contains only user session information.
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/README.md-1802-
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/README.md:1803:Also includes the the helper view `x$schema_flattened_keys`.
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/README.md-1804-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/generate_sql_file.sh-22-# Grab the current sys version
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/generate_sql_file.sh:23:SYSVERSIONTMP=`cat views/version.sql | grep 'AS sys_version' | awk '{print $2}'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/generate_sql_file.sh:24:SYSVERSION=`echo "${SYSVERSIONTMP//\'}"`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/generate_sql_file.sh-25-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-52-connection default;
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:53:--let $digest_insert= `SELECT DIGEST FROM performance_schema.events_statements_current WHERE THREAD_ID = $con1_thread_id ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-54-connection con1;
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-56-connection default;
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:57:--let $digest_update= `SELECT DIGEST FROM performance_schema.events_statements_current WHERE THREAD_ID = $con1_thread_id ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-58-connection con1;
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-60-connection default;
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:61:--let $digest_select= `SELECT DIGEST FROM performance_schema.events_statements_current WHERE THREAD_ID = $con1_thread_id ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-62-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-86-# with_runtimes_in_95th_percentile
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:87:--let $o_upd_total_latency= `SELECT total_latency FROM sys.statements_with_runtimes_in_95th_percentile WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:88:--let $o_upd_max_latency= `SELECT max_latency FROM sys.statements_with_runtimes_in_95th_percentile WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:89:--let $o_upd_avg_latency= `SELECT avg_latency FROM sys.statements_with_runtimes_in_95th_percentile WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:90:--let $o_upd_first_seen= `SELECT first_seen FROM sys.statements_with_runtimes_in_95th_percentile WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:91:--let $o_upd_last_seen= `SELECT last_seen FROM sys.statements_with_runtimes_in_95th_percentile WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-92---replace_result $digest_update DIGEST_UPDATE $o_upd_total_latency O_UPD_TOTAL_LATENCY $o_upd_max_latency O_UPD_MAX_LATENCY $o_upd_avg_latency O_UPD_AVG_LATENCY $o_upd_first_seen O_UPD_FIRST_SEEN $o_upd_last_seen O_UPD_LAST_SEEN
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-94-
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:95:--let $d_upd_total_latency= `SELECT sys.format_time(TIMER_WAIT) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_update' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-96---replace_result $digest_update DIGEST_UPDATE $d_upd_total_latency D_UPD_LATENCY $o_upd_max_latency D_UPD_LATENCY $o_upd_first_seen O_UPD_FIRST_SEEN $o_upd_last_seen O_UPD_LAST_SEEN
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-100-# So replace_result cannot be used to give it a unique value. Instead just use LOCK_LATENCY for all rows.
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:101:--let $o_upd_total_latency= `SELECT total_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:102:--let $o_upd_max_latency= `SELECT max_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:103:--let $o_upd_avg_latency= `SELECT avg_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:104:--let $o_upd_lock_latency= `SELECT lock_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:105:--let $o_upd_first_seen= `SELECT first_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:106:--let $o_upd_last_seen= `SELECT last_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_update'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:107:--let $o_sel_total_latency= `SELECT total_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:108:--let $o_sel_max_latency= `SELECT max_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:109:--let $o_sel_avg_latency= `SELECT avg_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:110:--let $o_sel_lock_latency= `SELECT lock_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:111:--let $o_sel_first_seen= `SELECT first_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:112:--let $o_sel_last_seen= `SELECT last_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_select'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:113:--let $o_ins_total_latency= `SELECT total_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:114:--let $o_ins_max_latency= `SELECT max_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:115:--let $o_ins_avg_latency= `SELECT avg_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:116:--let $o_ins_lock_latency= `SELECT lock_latency FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:117:--let $o_ins_first_seen= `SELECT first_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:118:--let $o_ins_last_seen= `SELECT last_seen FROM sys.statement_analysis WHERE db = 'test' AND digest = '$digest_insert'`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-119---replace_result $digest_insert DIGEST_INSERT $digest_update DIGEST_UPDATE $digest_select DIGEST_SELECT $o_upd_total_latency O_UPD_TOTAL_LATENCY $o_upd_max_latency O_UPD_MAX_LATENCY $o_upd_avg_latency O_UPD_AVG_LATENCY $o_upd_lock_latency LOCK_LATENCY $o_upd_first_seen O_UPD_FIRST_SEEN $o_upd_last_seen O_UPD_LAST_SEEN $o_sel_total_latency O_SEL_TOTAL_LATENCY $o_sel_max_latency O_SEL_MAX_LATENCY $o_sel_avg_latency O_SEL_AVG_LATENCY $o_sel_lock_latency LOCK_LATENCY $o_sel_first_seen O_SEL_FIRST_SEEN $o_sel_last_seen O_SEL_LAST_SEEN $o_ins_total_latency O_INS_TOTAL_LATENCY $o_ins_max_latency O_INS_MAX_LATENCY $o_ins_avg_latency O_INS_AVG_LATENCY $o_ins_lock_latency LOCK_LATENCY $o_ins_first_seen O_INS_FIRST_SEEN $o_ins_last_seen O_INS_LAST_SEEN
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-121-
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:122:--let $d_sel_total_latency= `SELECT sys.format_time(TIMER_WAIT) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_select' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:123:--let $d_ins_total_latency= `SELECT sys.format_time(TIMER_WAIT) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_insert' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:124:--let $d_upd_tock_latency= `SELECT sys.format_time(LOCK_TIME) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_update' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:125:--let $d_sel_tock_latency= `SELECT sys.format_time(LOCK_TIME) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_select' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test:126:--let $d_ins_tock_latency= `SELECT sys.format_time(LOCK_TIME) FROM performance_schema.events_statements_history_long WHERE CURRENT_SCHEMA = 'test' AND DIGEST = '$digest_insert' ORDER BY EVENT_ID DESC LIMIT 1`
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/mysql-test/suite/sysschema/t/pr_statement_performance_analyzer.test-127---replace_result $digest_insert DIGEST_INSERT $digest_update DIGEST_UPDATE $digest_select DIGEST_SELECT $d_upd_total_latency D_UPD_LATENCY $o_upd_max_latency D_UPD_LATENCY $o_upd_first_seen O_UPD_FIRST_SEEN $o_upd_last_seen O_UPD_LAST_SEEN $d_upd_tock_latency LOCK_LATENCY $d_sel_total_latency D_SEL_LATENCY $o_sel_max_latency D_SEL_LATENCY $o_sel_first_seen O_SEL_FIRST_SEEN $o_sel_last_seen O_SEL_LAST_SEEN $d_sel_tock_latency LOCK_LATENCY $d_ins_total_latency D_INS_LATENCY $o_ins_max_latency D_INS_LATENCY $o_ins_first_seen O_INS_FIRST_SEEN $o_ins_last_seen O_INS_LAST_SEEN $d_ins_tock_latency LOCK_LATENCY
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/procedures/diagnostics.sql-646- CALL sys.execute_prepared_stmt(CONCAT('DROP TEMPORARY TABLE IF EXISTS `tmp_', v_table_name, '_start`'));
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/procedures/diagnostics.sql:647: CALL sys.execute_prepared_stmt(CONCAT('CREATE TEMPORARY TABLE `tmp_', v_table_name, '_start` SELECT * FROM `sys`.`x$', v_table_name, '`'));
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/procedures/diagnostics.sql-648-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/procedures/diagnostics.sql-996- CALL sys.execute_prepared_stmt(CONCAT('DROP TEMPORARY TABLE IF EXISTS `tmp_', v_table_name, '_end`'));
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/procedures/diagnostics.sql:997: CALL sys.execute_prepared_stmt(CONCAT('CREATE TEMPORARY TABLE `tmp_', v_table_name, '_end` SELECT * FROM `sys`.`x$', v_table_name, '`'));
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/procedures/diagnostics.sql-998-
##############################################
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/procedures/statement_performance_analyzer.sql-568- 'sys.x$ps_digest_95th_percentile_by_avg_us',
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/procedures/statement_performance_analyzer.sql:569: '`sys`.`x$ps_digest_95th_percentile_by_avg_us`'
percona-toolkit-3.2.1/sandbox/servers/5.7/sys/procedures/statement_performance_analyzer.sql-570- );
##############################################
percona-toolkit-3.2.1/sandbox/start-sandbox-81-
percona-toolkit-3.2.1/sandbox/start-sandbox:82: for file in `grep -l PORT ${TMP_DIR}/$port/* 2>/dev/null`; do
percona-toolkit-3.2.1/sandbox/start-sandbox-83- sed -e "s/PORT/$port/g" -i.bak $file
##############################################
percona-toolkit-3.2.1/sandbox/start-sandbox-298-if [ -z "$PERCONA_TOOLKIT_SANDBOX" ]; then
percona-toolkit-3.2.1/sandbox/start-sandbox:299: PERCONA_TOOLKIT_SANDBOX=`./test-env checkconfig | grep PERCONA_TOOLKIT_SANDBOX | cut -d= -f2 | awk '{print $1}'`
percona-toolkit-3.2.1/sandbox/start-sandbox-300- if [ -z "$PERCONA_TOOLKIT_SANDBOX" ]; then
##############################################
percona-toolkit-3.2.1/sandbox/start-sandbox-323- ip=$(hostname -i | cut -d" " -f2)
percona-toolkit-3.2.1/sandbox/start-sandbox:324: version=`$PERCONA_TOOLKIT_SANDBOX/$mysqld -V --query_cache_size=0 --query_cache_type=0 --bind-address $ip 2>/dev/null | awk '{print $3}' | cut -d. -f 1,2`;
percona-toolkit-3.2.1/sandbox/start-sandbox:325: minor_version=`$PERCONA_TOOLKIT_SANDBOX/$mysqld -V --query_cache_size=0 --query_cache_type=0 --bind-address $ip 2>/dev/null | awk '{print $3}' | cut -d. -f 1,2,3 | cut -d- -f1`;
percona-toolkit-3.2.1/sandbox/start-sandbox-326-else
percona-toolkit-3.2.1/sandbox/start-sandbox:327: version=`$PERCONA_TOOLKIT_SANDBOX/$mysqld -V 2>/dev/null | awk '{print $3}' | cut -d. -f 1,2`;
percona-toolkit-3.2.1/sandbox/start-sandbox:328: minor_version=`$PERCONA_TOOLKIT_SANDBOX/$mysqld -V 2>/dev/null | awk '{print $3}' | cut -d. -f 1,2,3 | cut -d- -f1`;
percona-toolkit-3.2.1/sandbox/start-sandbox-329-fi
##############################################
percona-toolkit-3.2.1/sandbox/test-env-126- echo -n " PID file has a PID - "
percona-toolkit-3.2.1/sandbox/test-env:127: local pid=`cat ${TMP_DIR}/$port/data/mysql_sandbox$port.pid 2>/dev/null`
percona-toolkit-3.2.1/sandbox/test-env-128- if [ -n "$pid" ]; then
##############################################
percona-toolkit-3.2.1/sandbox/test-env-167- # Slave_SQL_Running: Yes
percona-toolkit-3.2.1/sandbox/test-env:168: local slave_running=`${TMP_DIR}/$port/use -e 'show slave status\G' 2>/dev/null | grep Running | grep -c Yes`
percona-toolkit-3.2.1/sandbox/test-env-169- if [ $slave_running -eq 2 ]; then
##############################################
percona-toolkit-3.2.1/sandbox/test-env-177- echo -n " slave to master $master_port - "
percona-toolkit-3.2.1/sandbox/test-env:178: local mp=`${TMP_DIR}/$port/use -e 'show slave status\G' 2>/dev/null | grep Master_Port | awk '{print $2}'`
percona-toolkit-3.2.1/sandbox/test-env-179- if [ "$mp" = "$master_port" ]; then
##############################################
percona-toolkit-3.2.1/sandbox/test-env-215- # Kill both mysqld_safe and mysqld.
percona-toolkit-3.2.1/sandbox/test-env:216: pid1=`ps xw | grep -v grep | grep mysqld_safe | grep ${TMP_DIR}/$p | awk '{print $1}'`
percona-toolkit-3.2.1/sandbox/test-env:217: pid2=`ps xw | grep -v grep | grep -v mysqld_safe | grep mysqld | grep ${TMP_DIR}/$p | awk '{print $1}'`
percona-toolkit-3.2.1/sandbox/test-env-218- [ "$pid1" ] && kill -9 $pid1 # Die, damn you, die!
##############################################
percona-toolkit-3.2.1/sandbox/test-env-361- for i in $(_seq 60); do
percona-toolkit-3.2.1/sandbox/test-env:362: pong=$(${TMP_DIR}/12347/use -ss -e "SELECT ping FROM percona_test.sentinel WHERE id=1 AND ping='$ping'" 2>/dev/null)
percona-toolkit-3.2.1/sandbox/test-env-363- [ "$ping" = "$pong" ] && break
##############################################
percona-toolkit-3.2.1/src/go/internal/testutils/env.go-150-// (rs1, primary) or (rs1, secondary1)
percona-toolkit-3.2.1/src/go/internal/testutils/env.go:151:func GetMongoDBAddr(rs, name string) string {
percona-toolkit-3.2.1/src/go/internal/testutils/env.go-152- if _, ok := hosts[rs]; !ok {
##############################################
percona-toolkit-3.2.1/src/go/lib/tutil/util.go-67- re = regexp.MustCompile(`NumberLong\((.*)\)`)
percona-toolkit-3.2.1/src/go/lib/tutil/util.go:68: buf = re.ReplaceAll(buf, []byte(`$1`))
percona-toolkit-3.2.1/src/go/lib/tutil/util.go-69-
percona-toolkit-3.2.1/src/go/lib/tutil/util.go-70- re = regexp.MustCompile(`ISODate\((.*)\)`)
percona-toolkit-3.2.1/src/go/lib/tutil/util.go:71: buf = re.ReplaceAll(buf, []byte(`$1`))
percona-toolkit-3.2.1/src/go/lib/tutil/util.go-72- // Using regexp is not supported
##############################################
percona-toolkit-3.2.1/src/go/lib/tutil/util.go-74- re = regexp.MustCompile(`(/.*/)`)
percona-toolkit-3.2.1/src/go/lib/tutil/util.go:75: buf = re.ReplaceAll(buf, []byte(`"$1"`))
percona-toolkit-3.2.1/src/go/lib/tutil/util.go-76-
##############################################
percona-toolkit-3.2.1/src/go/mongolib/proto/oplog.go-66- ElectionId string
percona-toolkit-3.2.1/src/go/mongolib/proto/oplog.go:67: } `bson:"$gleStats"`
percona-toolkit-3.2.1/src/go/mongolib/proto/oplog.go-68- StorageSize int64
##############################################
percona-toolkit-3.2.1/src/go/mongolib/proto/profiler_status.go-11- LastOpTime int64 `bson:"lastOpTime"`
percona-toolkit-3.2.1/src/go/mongolib/proto/profiler_status.go:12: } `bson:"$gleStats"`
percona-toolkit-3.2.1/src/go/mongolib/proto/profiler_status.go-13-}
##############################################
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile.go-27- Date struct {
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile.go:28: Eq string `bson:"$eq"`
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile.go-29- } `bson:"date"`
##############################################
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile_test.go-17- inDoc: []byte(`{"ns":"sbtest.orders","op":"command","command":{"aggregate":"orders",` +
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile_test.go:18: `"pipeline":[{"$match":{"status":"A"}},{"$group":{"_id":"$cust_id","total":{"$sum":"$amount"}}},` +
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile_test.go:19: `{"$sort":{"total":-1}}],"cursor":{},"$db":"sbtest"}}`),
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile_test.go:20: want: []byte(`{"explain":{"aggregate":"orders","pipeline":[{"$match":{"status":"A"}},` +
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile_test.go:21: `{"$group":{"_id":"$cust_id","total":{"$sum":"$amount"}}},` +
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile_test.go:22: `{"$sort":{"total":-1}}],"cursor":{},"$db":"sbtest"}}`),
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile_test.go-23- },
##############################################
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile_test.go-25- inDoc: []byte(`{"ns":"sbtest.people","op":"command","command":` +
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile_test.go:26: `{"count":"people","query":{},"fields":{},"$db":"sbtest"}}`),
percona-toolkit-3.2.1/src/go/mongolib/proto/system.profile_test.go-27- want: []byte(`{"explain":{"count":"people","query":{},"fields":{}}}`),
##############################################
percona-toolkit-3.2.1/src/go/pt-pg-summary/models/xo_db.xo.go-49- // change quote escapes for csv parser
percona-toolkit-3.2.1/src/go/pt-pg-summary/models/xo_db.xo.go:50: str := quoteEscapeRegex.ReplaceAllString(string(buf), `$1""`)
percona-toolkit-3.2.1/src/go/pt-pg-summary/models/xo_db.xo.go-51- str = strings.Replace(str, `\\`, `\`, -1)
##############################################
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go-216- "+------------+" + "\n" +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:217: `{{ range $key, $value := . -}} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:218: `| {{ printf "%-20s" (index $value 2).Datname }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:219: `| {{ printf "% 7d" (index $value 2).Numbackends }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:220: `| {{ printf "% 7d" (index $value 2).XactCommit }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:221: `| {{ printf "% 7d" (index $value 2).XactRollback }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:222: `| {{ printf "% 7d" (index $value 2).BlksRead }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:223: `| {{ printf "% 7d" (index $value 2).BlksHit }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:224: `| {{ printf "% 7d" (index $value 2).TupReturned }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:225: `| {{ printf "% 7d" (index $value 2).TupFetched }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:226: `| {{ printf "% 7d" (index $value 2).TupInserted }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:227: `| {{ printf "% 7d" (index $value 2).TupUpdated }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:228: `| {{ printf "% 7d" (index $value 2).TupDeleted }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:229: `| {{ printf "% 7d" (index $value 2).Conflicts }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:230: `| {{ printf "% 7d" (index $value 2).TempFiles }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:231: `| {{ printf "% 7d" (index $value 2).TempBytes }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:232: `| {{ printf "% 7d" (index $value 2).Deadlocks }} ` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go-233- "|\n" +
##############################################
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go-254- "##### --- Table access per database --- ####\n" +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:255: `{{ range $dbname, $values := . -}}` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go-256- "Database: {{ $dbname }}\n" +
##############################################
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go-289- " Value \n" +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:290: `{{ range $name, $values := . -}}` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go-291- ` {{ printf "%-45s" .Name }} ` +
##############################################
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go-303- ": Command line\n" +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go:304: `{{ range $name, $values := . }}` +
percona-toolkit-3.2.1/src/go/pt-pg-summary/templates/templates.go-305- ` {{ printf "% 5d" .PID }} ` +
##############################################
percona-toolkit-3.2.1/src/go/pt-secure-collect/README.md-3-
percona-toolkit-3.2.1/src/go/pt-secure-collect/README.md:4:- `pt-stalk --no-stalk --iterations=2 --sleep=30 --host=$mysql-host --dest=$temp-dir --port=$mysql-port --user=$mysql-user --password=$mysql-pass`
percona-toolkit-3.2.1/src/go/pt-secure-collect/README.md-5-- `pt-summary`
percona-toolkit-3.2.1/src/go/pt-secure-collect/README.md:6:- `pt-mysql-summary --host=$mysql-host --port=$mysql-port --user=$mysql-user --password=$mysql-pass`
percona-toolkit-3.2.1/src/go/pt-secure-collect/README.md-7-
percona-toolkit-3.2.1/src/go/pt-secure-collect/README.md:8:Internal variables placeholders will be replaced with the corresponding flag values. For example, `$mysql-host` will be replaced with the values specified in the `--mysql-host` flag.
percona-toolkit-3.2.1/src/go/pt-secure-collect/README.md-9-
##############################################
percona-toolkit-3.2.1/t/lib/ChangeHandler.t-222- $ch->fetch_back($master_dbh);
percona-toolkit-3.2.1/t/lib/ChangeHandler.t:223: `/tmp/12345/use < $trunk/t/lib/samples/before-TableSyncChunk.sql`;
percona-toolkit-3.2.1/t/lib/ChangeHandler.t-224- # This should cause it to fetch the row from test.test1 where a=1
##############################################
percona-toolkit-3.2.1/t/lib/CompareResults.t-306-
percona-toolkit-3.2.1/t/lib/CompareResults.t:307:diag(`rm -rf $tmpdir 2>/dev/null; mkdir $tmpdir`);
percona-toolkit-3.2.1/t/lib/CompareResults.t-308-
##############################################
percona-toolkit-3.2.1/t/lib/CompareResults.t-775-);
percona-toolkit-3.2.1/t/lib/CompareResults.t:776:diag(`rm -rf $tmpdir`);
percona-toolkit-3.2.1/t/lib/CompareResults.t-777-diag(`rm -rf /tmp/*outfile.txt`);
##############################################
percona-toolkit-3.2.1/t/lib/CompareWarnings.t-76-
percona-toolkit-3.2.1/t/lib/CompareWarnings.t:77:diag(`/tmp/12345/use < $trunk/t/lib/samples/compare-warnings.sql`);
percona-toolkit-3.2.1/t/lib/CompareWarnings.t-78-
##############################################
percona-toolkit-3.2.1/t/lib/CopyRowsInsertSelect.t-71-
percona-toolkit-3.2.1/t/lib/CopyRowsInsertSelect.t:72: $rows = $dbh->selectall_arrayref("select id, `$col` from __new_t order by id");
percona-toolkit-3.2.1/t/lib/CopyRowsInsertSelect.t-73- is_deeply(
##############################################
percona-toolkit-3.2.1/t/lib/CopyRowsInsertSelect.t-100-
percona-toolkit-3.2.1/t/lib/CopyRowsInsertSelect.t:101: $rows = $dbh->selectall_arrayref("select id, `$col` from __new_t order by id");
percona-toolkit-3.2.1/t/lib/CopyRowsInsertSelect.t-102- is_deeply(
##############################################
percona-toolkit-3.2.1/t/lib/Cxn.t-303-# copy is still alive, i.e. has an active/not-disconnected dbh.
percona-toolkit-3.2.1/t/lib/Cxn.t:304:diag(`touch $sync_file`);
percona-toolkit-3.2.1/t/lib/Cxn.t-305-
##############################################
percona-toolkit-3.2.1/t/lib/Cxn.t-313-
percona-toolkit-3.2.1/t/lib/Cxn.t:314:my $output = `cat $outfile 2>/dev/null`;
percona-toolkit-3.2.1/t/lib/Cxn.t-315-
##############################################
percona-toolkit-3.2.1/t/lib/DSNParser.t-497-);
percona-toolkit-3.2.1/t/lib/DSNParser.t:498:diag(`/tmp/12345/use -e "set global sql_mode='$old_mode'"`);
percona-toolkit-3.2.1/t/lib/DSNParser.t-499-$mdbh->disconnect;
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-33-
percona-toolkit-3.2.1/t/lib/Daemon.t:34:my $ret_val = system("$cmd 3 --daemonize --pid $pid_file --log $log_file");
percona-toolkit-3.2.1/t/lib/Daemon.t-35-die 'Cannot test Daemon.pm because t/daemonizes.pl is not working'
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-78-
percona-toolkit-3.2.1/t/lib/Daemon.t:79:system("$cmd 0 --daemonize --log $log_file");
percona-toolkit-3.2.1/t/lib/Daemon.t-80-PerconaTest::wait_for_files($log_file);
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-98-# Check that the log file is appended to.
percona-toolkit-3.2.1/t/lib/Daemon.t:99:system("$cmd 0 --daemonize --log $log_file");
percona-toolkit-3.2.1/t/lib/Daemon.t-100-PerconaTest::wait_until(sub { -s $log_file > $log_size });
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-112-rm_tmp_files();
percona-toolkit-3.2.1/t/lib/Daemon.t:113:diag(`touch $pid_file`);
percona-toolkit-3.2.1/t/lib/Daemon.t-114-
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-119-
percona-toolkit-3.2.1/t/lib/Daemon.t:120:$output = `$cmd 2 --daemonize --pid $pid_file 2>&1`;
percona-toolkit-3.2.1/t/lib/Daemon.t-121-like(
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-126-
percona-toolkit-3.2.1/t/lib/Daemon.t:127:$output = `ps wx | grep '$cmd 0' | grep -v grep`;
percona-toolkit-3.2.1/t/lib/Daemon.t-128-unlike(
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-141-
percona-toolkit-3.2.1/t/lib/Daemon.t:142: system("$cmd 15 --daemonize --pid $pid_file --log $log_file");
percona-toolkit-3.2.1/t/lib/Daemon.t-143- PerconaTest::wait_for_files($pid_file, $log_file)
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-150- PTDEVDEBUG && PerconaTest::_d('pid_file', $pid_file,
percona-toolkit-3.2.1/t/lib/Daemon.t:151: 'pid', $pid, 'proc_fd_0', $proc_fd_0, `ls -l $proc_fd_0`);
percona-toolkit-3.2.1/t/lib/Daemon.t-152- my $stdin = readlink $proc_fd_0;
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-163-# rm_tmp_files();
percona-toolkit-3.2.1/t/lib/Daemon.t:164:# system("echo foo | $cmd 5 --daemonize --pid $pid_file --log $log_file");
percona-toolkit-3.2.1/t/lib/Daemon.t-165-# PerconaTest::wait_for_files($pid_file, $log_file);
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-170-# PTDEVDEBUG && PerconaTest::_d('pid_file', $pid_file,
percona-toolkit-3.2.1/t/lib/Daemon.t:171:# 'pid', $pid, 'proc_fd_0', $proc_fd_0, `ls -l $proc_fd_0`);
percona-toolkit-3.2.1/t/lib/Daemon.t-172-# $stdin = readlink $proc_fd_0;
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-186-rm_tmp_files();
percona-toolkit-3.2.1/t/lib/Daemon.t:187:system("$cmd 7 --daemonize --pid $pid_file >/dev/null 2>&1");
percona-toolkit-3.2.1/t/lib/Daemon.t-188-PerconaTest::wait_for_files($pid_file);
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-205-
percona-toolkit-3.2.1/t/lib/Daemon.t:206:system("$cmd 6 --daemonize --log $log_file --pid $pid_file > $tempfile 2>&1");
percona-toolkit-3.2.1/t/lib/Daemon.t-207-PerconaTest::wait_for_files($log_file, $pid_file, $tempfile);
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-235-
percona-toolkit-3.2.1/t/lib/Daemon.t:236:diag(`rm $tempfile >/dev/null`);
percona-toolkit-3.2.1/t/lib/Daemon.t-237-
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-241-rm_tmp_files();
percona-toolkit-3.2.1/t/lib/Daemon.t:242:system("$cmd 10 --daemonize --log $log_file --pid $pid_file");
percona-toolkit-3.2.1/t/lib/Daemon.t-243-PerconaTest::wait_for_files($pid_file, $log_file);
percona-toolkit-3.2.1/t/lib/Daemon.t-244-chomp($pid = slurp_file($pid_file));
percona-toolkit-3.2.1/t/lib/Daemon.t:245:$output = `$cmd 1 --daemonize --pid $pid_file 2>&1`;
percona-toolkit-3.2.1/t/lib/Daemon.t-246-like(
##############################################
percona-toolkit-3.2.1/t/lib/Daemon.t-278-{
percona-toolkit-3.2.1/t/lib/Daemon.t:279: diag(`touch $pid_file2`);
percona-toolkit-3.2.1/t/lib/Daemon.t-280- eval {
##############################################
percona-toolkit-3.2.1/t/lib/IndexUsage.t-118- # pre-populate the tables with mysql.*, sakila.*, etc.
percona-toolkit-3.2.1/t/lib/IndexUsage.t:119: `$trunk/bin/pt-index-usage -F /tmp/12345/my.sandbox.cnf --create-save-results-database --save-results-database D=mk_iu --empty-save-results-tables --no-report --quiet --databases foo $trunk/t/lib/samples/empty >/dev/null`;
percona-toolkit-3.2.1/t/lib/IndexUsage.t-120-
##############################################
percona-toolkit-3.2.1/t/lib/MasterSlave.t-132- # Create a read-only checksum user that can't SHOW SLAVES HOSTS or much else.
percona-toolkit-3.2.1/t/lib/MasterSlave.t:133: diag(`/tmp/12345/use -u root < $trunk/t/lib/samples/ro-checksum-user.sql`);
percona-toolkit-3.2.1/t/lib/MasterSlave.t-134-
##############################################
percona-toolkit-3.2.1/t/lib/MasterSlave.t-224- if ( -d "/tmp/$port" ) {
percona-toolkit-3.2.1/t/lib/MasterSlave.t:225: diag(`$trunk/sandbox/stop-sandbox $port >/dev/null 2>&1`);
percona-toolkit-3.2.1/t/lib/MasterSlave.t-226- }
percona-toolkit-3.2.1/t/lib/MasterSlave.t-227-}
percona-toolkit-3.2.1/t/lib/MasterSlave.t:228:diag(`$trunk/sandbox/start-sandbox master 2900`);
percona-toolkit-3.2.1/t/lib/MasterSlave.t:229:diag(`$trunk/sandbox/start-sandbox slave 2903 2900`);
percona-toolkit-3.2.1/t/lib/MasterSlave.t:230:diag(`$trunk/sandbox/start-sandbox slave 2901 2900`);
percona-toolkit-3.2.1/t/lib/MasterSlave.t:231:diag(`$trunk/sandbox/start-sandbox slave 2902 2901`);
percona-toolkit-3.2.1/t/lib/MasterSlave.t-232-
##############################################
percona-toolkit-3.2.1/t/lib/MasterSlave.t-346-$dbh->do('update test.t set a=sleep(5)');
percona-toolkit-3.2.1/t/lib/MasterSlave.t:347:diag(`(/tmp/$port_for{slave0}/use -e 'start slave')&`);
percona-toolkit-3.2.1/t/lib/MasterSlave.t-348-eval {
##############################################
percona-toolkit-3.2.1/t/lib/MasterSlave.t-900-$sb->wipe_clean($master_dbh);
percona-toolkit-3.2.1/t/lib/MasterSlave.t:901:diag(`$trunk/sandbox/stop-sandbox 2903 2902 2901 2900`);
percona-toolkit-3.2.1/t/lib/MasterSlave.t-902-diag(`/tmp/12346/use -e "set global read_only=1"`);
##############################################
percona-toolkit-3.2.1/t/lib/MockSyncStream.t-89- diag(`/tmp/12345/use -e 'CREATE DATABASE test' 2>/dev/null`);
percona-toolkit-3.2.1/t/lib/MockSyncStream.t:90: diag(`/tmp/12345/use < $trunk/t/lib/samples/col_types.sql`);
percona-toolkit-3.2.1/t/lib/MockSyncStream.t-91-
##############################################
percona-toolkit-3.2.1/t/lib/NibbleIterator.t-365-my ($fh, $filename) = tempfile();
percona-toolkit-3.2.1/t/lib/NibbleIterator.t:366:system ("sleep 3 && rm $filename &");
percona-toolkit-3.2.1/t/lib/NibbleIterator.t-367-
##############################################
percona-toolkit-3.2.1/t/lib/NibbleIterator.t-884-
percona-toolkit-3.2.1/t/lib/NibbleIterator.t:885:diag(`/tmp/12345/use < $trunk/t/lib/samples/cardinality.sql >/dev/null`);
percona-toolkit-3.2.1/t/lib/NibbleIterator.t-886-$dbh->do('analyze table bad_tables.inv');
##############################################
percona-toolkit-3.2.1/t/lib/Outfile.t-32- close $fh;
percona-toolkit-3.2.1/t/lib/Outfile.t:33: my $retval = system("diff $tmp_file $expected_output");
percona-toolkit-3.2.1/t/lib/Outfile.t:34: `rm -rf $tmp_file`;
percona-toolkit-3.2.1/t/lib/Outfile.t-35- $retval = $retval >> 8;
##############################################
percona-toolkit-3.2.1/t/lib/Percona/Toolkit.t-27-foreach my $tool ( @vc_tools ) {
percona-toolkit-3.2.1/t/lib/Percona/Toolkit.t:28: my $output = `$tool --version 2>/dev/null`;
percona-toolkit-3.2.1/t/lib/Percona/Toolkit.t-29- my ($tool_version) = $output =~ /(\b[0-9]\.[0-9]\.[0-9]\b)/;
##############################################
percona-toolkit-3.2.1/t/lib/Percona/Toolkit.t-72- skip "Can't run bzr, skipping tag checking", 1 unless $bzr;
percona-toolkit-3.2.1/t/lib/Percona/Toolkit.t:73: chomp(my $root = `$bzr root 2>/dev/null`);
percona-toolkit-3.2.1/t/lib/Percona/Toolkit.t-74- skip '$trunk and bzr root differ, skipping tag checking', 1
##############################################
percona-toolkit-3.2.1/t/lib/Percona/Toolkit.t-76-
percona-toolkit-3.2.1/t/lib/Percona/Toolkit.t:77: my @tags = split /\n/, `$bzr tags`;
percona-toolkit-3.2.1/t/lib/Percona/Toolkit.t-78- # sort the version numbers (some bzr versions do not sort them)
##############################################
percona-toolkit-3.2.1/t/lib/QueryParser.t-719-is_deeply(
percona-toolkit-3.2.1/t/lib/QueryParser.t:720: $qp->query_type( 'select * from foo where id=1', $qr ),
percona-toolkit-3.2.1/t/lib/QueryParser.t-721- { type => 'SELECT',
##############################################
percona-toolkit-3.2.1/t/lib/QueryParser.t-726-is_deeply(
percona-toolkit-3.2.1/t/lib/QueryParser.t:727: $qp->query_type( '/* haha! */ select * from foo where id=1', $qr ),
percona-toolkit-3.2.1/t/lib/QueryParser.t-728- { type => 'SELECT',
##############################################
percona-toolkit-3.2.1/t/lib/QueryParser.t-740-is_deeply(
percona-toolkit-3.2.1/t/lib/QueryParser.t:741: $qp->query_type( 'delete from foo where bar=1', $qr ),
percona-toolkit-3.2.1/t/lib/QueryParser.t-742- { type => 'DELETE',
##############################################
percona-toolkit-3.2.1/t/lib/QueryRewriter.t-306-my $zcat = `uname` =~ m/Darwin/ ? 'gzcat' : 'zcat';
percona-toolkit-3.2.1/t/lib/QueryRewriter.t:307:my $huge_insert = `$zcat $trunk/t/lib/samples/slowlogs/slow039.txt.gz | tail -n 1`;
percona-toolkit-3.2.1/t/lib/QueryRewriter.t-308-is(
##############################################
percona-toolkit-3.2.1/t/lib/QueryRewriter.t-312-);
percona-toolkit-3.2.1/t/lib/QueryRewriter.t:313:$huge_insert = `$zcat $trunk/t/lib/samples/slowlogs/slow040.txt.gz | tail -n 2`;
percona-toolkit-3.2.1/t/lib/QueryRewriter.t-314-is(
##############################################
percona-toolkit-3.2.1/t/lib/Quoter.t-204- my ($text_string) = $dbh->selectrow_array(
percona-toolkit-3.2.1/t/lib/Quoter.t:205: "SELECT textval FROM serialize_test.serialize WHERE id=$test_index");
percona-toolkit-3.2.1/t/lib/Quoter.t-206- my @text_parts = $q->deserialize_list($text_string);
##############################################
percona-toolkit-3.2.1/t/lib/Quoter.t-248- my ($text_string) = $utf8_dbh->selectrow_array(
percona-toolkit-3.2.1/t/lib/Quoter.t:249: "SELECT textval FROM serialize_test.serialize WHERE id=$test_index");
percona-toolkit-3.2.1/t/lib/Quoter.t-250- my @text_parts = $q->deserialize_list($text_string);
##############################################
percona-toolkit-3.2.1/t/lib/SchemaIterator.t-483- my $master_basedir = "/tmp/$master3_port";
percona-toolkit-3.2.1/t/lib/SchemaIterator.t:484: diag(`$trunk/sandbox/stop-sandbox $master3_port >/dev/null`);
percona-toolkit-3.2.1/t/lib/SchemaIterator.t:485: diag(`$trunk/sandbox/start-sandbox master $master3_port >/dev/null`);
percona-toolkit-3.2.1/t/lib/SchemaIterator.t-486- my $dbh3 = $sb->get_dbh_for("master3");
##############################################
percona-toolkit-3.2.1/t/lib/SchemaIterator.t-540-
percona-toolkit-3.2.1/t/lib/SchemaIterator.t:541: diag(`cp $broken_frm $db_dir_2 2>&1`);
percona-toolkit-3.2.1/t/lib/SchemaIterator.t-542-
##############################################
percona-toolkit-3.2.1/t/lib/SchemaIterator.t-572-
percona-toolkit-3.2.1/t/lib/SchemaIterator.t:573: diag(`$trunk/sandbox/stop-sandbox $master3_port >/dev/null`);
percona-toolkit-3.2.1/t/lib/SchemaIterator.t-574-}
##############################################
percona-toolkit-3.2.1/t/lib/SchemaIterator.t-580-$sb->wipe_clean($dbh);
percona-toolkit-3.2.1/t/lib/SchemaIterator.t:581:diag(`/tmp/12345/use < $trunk/t/lib/samples/100-dbs.sql`);
percona-toolkit-3.2.1/t/lib/SchemaIterator.t-582-
##############################################
percona-toolkit-3.2.1/t/lib/SchemaIterator.t-589-
percona-toolkit-3.2.1/t/lib/SchemaIterator.t:590:diag(`/tmp/12345/use < $trunk/t/lib/samples/100-dbs-drop.sql`);
percona-toolkit-3.2.1/t/lib/SchemaIterator.t-591-
##############################################
percona-toolkit-3.2.1/t/lib/SlowLogWriter.t-40- # Compare the contents of the two files.
percona-toolkit-3.2.1/t/lib/SlowLogWriter.t:41: my $retval = system("diff $tmp_file $trunk/$expected");
percona-toolkit-3.2.1/t/lib/SlowLogWriter.t:42: `rm -rf $tmp_file`;
percona-toolkit-3.2.1/t/lib/SlowLogWriter.t-43- $retval = $retval >> 8;
##############################################
percona-toolkit-3.2.1/t/lib/SlowLogWriter.t-52- close $fh;
percona-toolkit-3.2.1/t/lib/SlowLogWriter.t:53: my $retval = system("diff $tmp_file $trunk/$expected_output");
percona-toolkit-3.2.1/t/lib/SlowLogWriter.t:54: `rm -rf $tmp_file`;
percona-toolkit-3.2.1/t/lib/SlowLogWriter.t-55- $retval = $retval >> 8;
##############################################
percona-toolkit-3.2.1/t/lib/TableParser.t-1051- my $master_basedir = "/tmp/$master3_port";
percona-toolkit-3.2.1/t/lib/TableParser.t:1052: diag(`$trunk/sandbox/stop-sandbox $master3_port >/dev/null`);
percona-toolkit-3.2.1/t/lib/TableParser.t:1053: diag(`$trunk/sandbox/start-sandbox master $master3_port >/dev/null`);
percona-toolkit-3.2.1/t/lib/TableParser.t-1054- my $dbh3 = $sb->get_dbh_for("master3");
##############################################
percona-toolkit-3.2.1/t/lib/TableParser.t-1096-
percona-toolkit-3.2.1/t/lib/TableParser.t:1097: diag(`cp $broken_frm $db_dir_2 2>&1`);
percona-toolkit-3.2.1/t/lib/TableParser.t-1098-
##############################################
percona-toolkit-3.2.1/t/lib/TableParser.t-1106-
percona-toolkit-3.2.1/t/lib/TableParser.t:1107: diag(`$trunk/sandbox/stop-sandbox $master3_port >/dev/null`);
percona-toolkit-3.2.1/t/lib/TableParser.t-1108-}
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncChunk.t-44-
percona-toolkit-3.2.1/t/lib/TableSyncChunk.t:45:diag(`$mysql < $trunk/t/lib/samples/before-TableSyncChunk.sql`);
percona-toolkit-3.2.1/t/lib/TableSyncChunk.t-46-
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-84-$sb->create_dbs($dbh, ['test']);
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:85:diag(`$mysql < $trunk/t/lib/samples/before-TableSyncNibble.sql`);
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-86-my $ddl = $tp->get_create_table($dbh, 'test', 'test1');
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-471- replicate => 'issue_560.checksum',
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:472: where => $where, # not used in sub but normally passed so we
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-473- # do the same to simulate a real run
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-486- $t->get_sql(
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:487: where => $where,
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-488- database => 'issue_560',
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-490- ),
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:491: "SELECT /*issue_560.buddy_list:1/1*/ 0 AS chunk_num, COUNT(*) AS cnt, COALESCE(LOWER(CONV(BIT_XOR(CAST(CRC32(CONCAT_WS('#', `player_id`, `buddy_id`)) AS UNSIGNED)), 10, 16)), 0) AS crc FROM `issue_560`.`buddy_list` WHERE (((`player_id` < '300') OR (`player_id` = '300' AND `buddy_id` <= '2085'))) AND (($where))",
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-492- 'Nibble with chunk boundary (chunk sql)'
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-497- $t->get_sql(
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:498: where => $where,
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-499- database => 'issue_560',
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-501- ),
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:502: "SELECT /*rows in nibble*/ `player_id`, `buddy_id`, CRC32(CONCAT_WS('#', `player_id`, `buddy_id`)) AS __crc_col FROM `issue_560`.`buddy_list` WHERE (((`player_id` < '300') OR (`player_id` = '300' AND `buddy_id` <= '2085'))) AND ($where) ORDER BY `player_id`, `buddy_id`",
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-503- 'Nibble with chunk boundary (row sql)'
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-509- $t->get_sql(
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:510: where => $where,
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-511- database => 'issue_560',
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-513- ),
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:514: "SELECT /*issue_560.buddy_list:1/1*/ 0 AS chunk_num, COUNT(*) AS cnt, COALESCE(LOWER(CONV(BIT_XOR(CAST(CRC32(CONCAT_WS('#', `player_id`, `buddy_id`)) AS UNSIGNED)), 10, 16)), 0) AS crc FROM `issue_560`.`buddy_list` WHERE ((((`player_id` > '300') OR (`player_id` = '300' AND `buddy_id` > '2085')) AND 1=1)) AND (($where))",
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-515- "Next sub-nibble",
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-530- replicate => 'issue_560.checksum',
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:531: where => $where, # not used in sub but normally passed so we
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-532- # do the same to simulate a real run
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-545- $t->get_sql(
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:546: where => $where,
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-547- database => 'issue_560',
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-556- $t->get_sql(
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:557: where => $where,
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-558- database => 'issue_560',
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-596- crc_col => '__crc_col',
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t:597: index_hint => 'FORCE INDEX(`'.$plugin_args{chunk_index}.'`)',
percona-toolkit-3.2.1/t/lib/TableSyncNibble.t-598- key_cols => $tbl_struct->{keys}->{$plugin_args{chunk_index}}->{cols},
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncer.t-702-# #############################################################################
percona-toolkit-3.2.1/t/lib/TableSyncer.t:703:diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/lib/TableSyncer.t-704-my $dbh3 = $sb->get_dbh_for('master1');
##############################################
percona-toolkit-3.2.1/t/lib/TableSyncer.t-884-
percona-toolkit-3.2.1/t/lib/TableSyncer.t:885: diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null &`);
percona-toolkit-3.2.1/t/lib/TableSyncer.t-886- $dbh3->disconnect();
##############################################
percona-toolkit-3.2.1/t/lib/VersionCheck.t-506-
percona-toolkit-3.2.1/t/lib/VersionCheck.t:507:my $output = `cat $vc_file`;
percona-toolkit-3.2.1/t/lib/VersionCheck.t-508-
##############################################
percona-toolkit-3.2.1/t/lib/VersionCheck.t-668-my @vc_tools = grep { chomp; basename($_) =~ /\A[a-z-]+\z/ }
percona-toolkit-3.2.1/t/lib/VersionCheck.t:669: `grep --files-with-matches VersionCheck $trunk/bin/*`;
percona-toolkit-3.2.1/t/lib/VersionCheck.t-670-
##############################################
percona-toolkit-3.2.1/t/lib/VersionCheck.t-673- next if $tool_name eq 'pt-agent' || $tool_name =~ m/^pt-mongodb-/;
percona-toolkit-3.2.1/t/lib/VersionCheck.t:674: my $output = `$tool --help`;
percona-toolkit-3.2.1/t/lib/VersionCheck.t-675- like(
##############################################
percona-toolkit-3.2.1/t/lib/bash/collect.sh-54-is \
percona-toolkit-3.2.1/t/lib/bash/collect.sh:55: "`cat $p-hostname`" \
percona-toolkit-3.2.1/t/lib/bash/collect.sh-56- "`hostname`" \
##############################################
percona-toolkit-3.2.1/t/lib/bash/daemon.sh-20-
percona-toolkit-3.2.1/t/lib/bash/daemon.sh:21:pid=`cat $file`
percona-toolkit-3.2.1/t/lib/bash/daemon.sh-22-is \
##############################################
percona-toolkit-3.2.1/t/lib/bash/daemon.sh-53-
percona-toolkit-3.2.1/t/lib/bash/daemon.sh:54:pid=`cat $file`
percona-toolkit-3.2.1/t/lib/bash/daemon.sh-55-is \
##############################################
percona-toolkit-3.2.1/t/lib/bash/parse_options.sh-17-
percona-toolkit-3.2.1/t/lib/bash/parse_options.sh:18:is "`cat $TMPFILE`" "" "No warnings or errors"
percona-toolkit-3.2.1/t/lib/bash/parse_options.sh-19-
##############################################
percona-toolkit-3.2.1/t/lib/bash/parse_options.sh-267-unset HOME
percona-toolkit-3.2.1/t/lib/bash/parse_options.sh:268:OUTPUT=`parse_options $T_LIB_DIR/samples/bash/po001.sh 2>&1`
percona-toolkit-3.2.1/t/lib/bash/parse_options.sh-269-echo "$OUTPUT" > "$TMPFILE"
##############################################
percona-toolkit-3.2.1/t/lib/bash/safeguards.sh-16-is \
percona-toolkit-3.2.1/t/lib/bash/safeguards.sh:17: "`wc -l $PT_TMPDIR/df-out | awk '{print $1}'`" \
percona-toolkit-3.2.1/t/lib/bash/safeguards.sh-18- "2" \
##############################################
percona-toolkit-3.2.1/t/lib/bash/safeguards.sh-32-is \
percona-toolkit-3.2.1/t/lib/bash/safeguards.sh:33: "`cat $PT_TMPDIR/out`" \
percona-toolkit-3.2.1/t/lib/bash/safeguards.sh-34- "" \
##############################################
percona-toolkit-3.2.1/t/pt-archiver/archive_using_channels.t-58-diag("Loading $num_rows into the test.t1 table on first master. This might take some time.");
percona-toolkit-3.2.1/t/pt-archiver/archive_using_channels.t:59:diag(`util/mysql_random_data_load --host=127.0.0.1 --port=$master1_port --user=msandbox --password=msandbox test t1 $num_rows`);
percona-toolkit-3.2.1/t/pt-archiver/archive_using_channels.t-60-diag("$num_rows rows loaded. Starting tests.");
##############################################
percona-toolkit-3.2.1/t/pt-archiver/basics.t-119-$sb->load_file('master', 't/pt-archiver/samples/tables1-4.sql');
percona-toolkit-3.2.1/t/pt-archiver/basics.t:120:$output = `$trunk/bin/pt-archiver --where 1=1 --source D=test,t=table_1,F=$cnf --purge --progress 2 2>&1 | awk '{print \$3}'`;
percona-toolkit-3.2.1/t/pt-archiver/basics.t-121-is($output, <<EOF
##############################################
percona-toolkit-3.2.1/t/pt-archiver/bugs.t-40-
percona-toolkit-3.2.1/t/pt-archiver/bugs.t:41:$output = `$cmd --optimize --dry-run --purge --where 1=1 --source D=test,t=table_1,F=$cnf 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/bugs.t-42-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/bulk_delete.t-37-$sb->load_file('master', 't/pt-archiver/samples/table5.sql');
percona-toolkit-3.2.1/t/pt-archiver/bulk_delete.t:38:$output = `perl -I $trunk/t/pt-archiver/samples $cmd --plugin Plugin7 --no-ascend --limit 50 --bulk-delete --purge --where 1=1 --source D=test,t=table_5,F=$cnf --statistics 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/bulk_delete.t-39-like($output, qr/SELECT 105/, 'Fetched 105 rows');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/bulk_delete.t-50-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/bulk_delete.t:51: sub { pt_archiver::main(qw(--dry-run --no-ascend --limit 50 --bulk-delete --purge --where 1=1), "--source", "D=test,t=table_5,F=$cnf", qw(--statistics)) },
percona-toolkit-3.2.1/t/pt-archiver/bulk_delete.t-52-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/bulk_delete.t-58-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/bulk_delete.t:59: sub { pt_archiver::main(qw(--no-ascend --limit 50 --bulk-delete --where 1=1), "--source", "D=test,t=table_5,F=$cnf", qw(--statistics --dest t=table_5_dest)) },
percona-toolkit-3.2.1/t/pt-archiver/bulk_delete.t-60-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/bulk_regular_insert.t-72-
percona-toolkit-3.2.1/t/pt-archiver/bulk_regular_insert.t:73:`$cmd --source F=$cnf,D=bri,t=t,L=1 --dest t=t_arch,m=bulk_regular_insert --where "1=1" --bulk-insert --limit 3`;
percona-toolkit-3.2.1/t/pt-archiver/bulk_regular_insert.t-74-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/check_slave_lag.t-59-# slave lag is gone.
percona-toolkit-3.2.1/t/pt-archiver/check_slave_lag.t:60:#system("$cmd --source F=$cnf,D=issue_758,t=t --purge --where 'i>0' --check-slave-lag h=127.1,P=12346,u=msandbox,p=msandbox >/dev/null 2>&1 &");
percona-toolkit-3.2.1/t/pt-archiver/check_slave_lag.t:61:system("$cmd --source F=$cnf,D=issue_758,t=t --purge --where 'i>0' --check-slave-lag h=127.1,P=12346,u=msandbox,p=msandbox &");
percona-toolkit-3.2.1/t/pt-archiver/check_slave_lag.t-62-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/compact_col_vals.t-62-
percona-toolkit-3.2.1/t/pt-archiver/compact_col_vals.t:63:`$cmd --purge --no-safe-auto-inc --source F=$cnf,D=cai,t=t,m=compact_col_vals --where "1=1"`;
percona-toolkit-3.2.1/t/pt-archiver/compact_col_vals.t-64-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t-68-
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t:69:`$cmd --purge --primary-key-only --source F=$cnf,D=dm,t=main_table-123,i=pub_date,b=1,m=delete_more --where "pub_date < '2010-02-16'" --bulk-delete --limit 2`;
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t-70-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t-160-
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t:161: `$cmd --purge --primary-key-only --source F=$cnf,D=dm,t=main_table-123,i=pub_date,m=delete_more --where "pub_date < '2010-02-16'" --bulk-delete --limit 2`;
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t-162- sleep 1;
##############################################
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t-221-
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t:222:`$cmd --purge --primary-key-only --source F=$cnf,D=dm,t=main_table-123,i=pub_date,b=1,m=delete_more --where "pub_date < '2010-02-16'" --bulk-delete --limit 100`;
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t-223-#13
##############################################
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t-279-
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t:280:`$cmd --purge --primary-key-only --source F=$cnf,D=dm,t=main_table-123,i=pub_date,b=1,m=delete_more --where "pub_date < '2010-02-16'"`;
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t:281:`$cmd --purge --primary-key-only --source F=$cnf,D=dm,t=main_table-123,i=pub_date,b=1,m=delete_more --where "pub_date < '2010-02-16'"`;
percona-toolkit-3.2.1/t/pt-archiver/delete_more.t-282-#17
##############################################
percona-toolkit-3.2.1/t/pt-archiver/dest.t-37-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/dest.t:38: sub { pt_archiver::main(qw(--where 1=1), "--source", "D=test,t=table_1,F=$cnf", qw(--dest t=table_2)) },
percona-toolkit-3.2.1/t/pt-archiver/dest.t-39-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/dest.t-48-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/dest.t:49: sub { pt_archiver::main("-c", "b,c", qw(--where 1=1), "--source", "D=test,t=table_1,F=$cnf", qw(--dest t=table_2)) },
percona-toolkit-3.2.1/t/pt-archiver/dest.t-50-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/dest.t-88-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/dest.t:89: sub { pt_archiver::main(qw(--where 1=1 --txn-size 0), "--source", "D=test,t=table_1,F=$cnf", qw(--dest t=table_2)) },
percona-toolkit-3.2.1/t/pt-archiver/dest.t-90-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/dest.t-99-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/dest.t:100: sub { pt_archiver::main(qw(--where 1=1 --txn-size 2), "--source", "D=test,t=table_1,F=$cnf", qw(--dest t=table_2)) },
percona-toolkit-3.2.1/t/pt-archiver/dest.t-101-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/dest.t-110-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/dest.t:111: sub { pt_archiver::main(qw(--where 1=1 --dest t=table_4 --no-check-columns), "--source", "D=test,t=table_1,F=$cnf") },
percona-toolkit-3.2.1/t/pt-archiver/dest.t-112-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/file.t-36-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/file.t:37: sub { pt_archiver::main(qw(--where 1=1), "--source", "D=test,t=table_1,F=$cnf", "--file", 'archive.%D.%t') },
percona-toolkit-3.2.1/t/pt-archiver/file.t-38-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/file.t-56-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/file.t:57: sub { pt_archiver::main("-c", "b,c", qw(--where 1=1 --header), "--source", "D=test,t=table_1,F=$cnf", "--file", 'archive.%D.%t') },
percona-toolkit-3.2.1/t/pt-archiver/file.t-58-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/file.t-121-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/file.t:122: sub { pt_archiver::main(qw(--where 1=1 --output-format=csv), "--source", "D=test,t=table_2,F=$cnf", "--file", 'archive.%D.%t') },
percona-toolkit-3.2.1/t/pt-archiver/file.t-123-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/gt_n.t-48-# Add path to samples to Perl's INC so the tool can find the module.
percona-toolkit-3.2.1/t/pt-archiver/gt_n.t:49:diag(`perl -I $trunk/t/pt-archiver/samples $cmd --where '1=1' --purge --source F=$cnf,D=gt_n,t=t1,m=gt_n 2>&1`);
percona-toolkit-3.2.1/t/pt-archiver/gt_n.t-50-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-38-$sb->load_file('master', 't/pt-archiver/samples/tables1-4.sql');
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:39:$output = `$cmd --dry-run --where 1=1 --source D=test,t=table_3,F=$cnf --purge 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-40-like($output, qr/FORCE INDEX\(`PRIMARY`\)/, 'Uses PRIMARY index');
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:41:$output = `$cmd --where 1=1 --source D=test,t=table_3,F=$cnf --purge 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-42-is($output, '', 'Does not die with ascending index');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-47-$sb->load_file('master', 't/pt-archiver/samples/tables1-4.sql');
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:48:$output = `$cmd --where 1=1 --source i=foo,D=test,t=table_3,F=$cnf --purge 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-49-like($output, qr/Index 'foo' does not exist in table/, 'Got bad-index error OK');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-52-$sb->load_file('master', 't/pt-archiver/samples/tables1-4.sql');
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:53:$output = `$cmd --where 1=1 --source i=b,D=test,t=table_1,F=$cnf --purge 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-54-is($output, "", 'Got no error with a NULLable index');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-57-$sb->load_file('master', 't/pt-archiver/samples/tables1-4.sql');
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:58:$output = `$cmd --where 1=1 --source D=test,t=table_4,F=$cnf --purge 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-59-like($output, qr/Cannot find an ascendable index/, 'Got need-PK-error OK');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-62-$sb->load_file('master', 't/pt-archiver/samples/tables1-4.sql');
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:63:$output = `$cmd --where 1=1 --source D=test,t=table_3,F=$cnf,i=PRIMARY --purge 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-64-is($output, '', 'No output for ascending index explicitly');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-70-$sb->load_file('master', 't/pt-archiver/samples/table11.sql');
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:71:$output = `$cmd --limit 2 --where 1=1 --source D=test,t=table_11,F=$cnf --purge 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-72-is($output, '', 'No output while dealing with out-of-order PK');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-78-$sb->load_file('master', 't/pt-archiver/samples/table6.sql');
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:79:$output = `$cmd --source D=test,t=table_6,F=$cnf --purge --limit 2 --where 'c=1'`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-80-is($output, '', 'No errors purging table_6');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-85-$sb->load_file('master', 't/pt-archiver/samples/table5.sql');
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:86:$output = `$cmd --source D=test,t=table_5,F=$cnf --purge --limit 50 --where 'a<current_date - interval 1 day' 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-87-is($output, '', 'No errors in larger table');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-91-# Make sure ascending index check can be disabled
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:92:$output = `$cmd --where 1=1 --dry-run --no-ascend --source D=test,t=table_5,F=$cnf --purge --limit 50 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-93-like ( $output, qr/(^SELECT .*$)\n\1/m, '--no-ascend makes fetch-first and fetch-next identical' );
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-94-$sb->load_file('master', 't/pt-archiver/samples/table5.sql');
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:95:$output = `$cmd --where 1=1 --no-ascend --source D=test,t=table_5,F=$cnf --purge --limit 1 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-96-is($output, '', "No output when --no-ascend");
##############################################
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-98-# Check ascending only first column
percona-toolkit-3.2.1/t/pt-archiver/indexes.t:99:$output = `$cmd --where 1=1 --dry-run --ascend-first --source D=test,t=table_5,F=$cnf --purge --limit 50 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/indexes.t-100-like ( $output, qr/WHERE \(1=1\) AND \(\(`a` >= \?\)\) ORDER BY `a`,`b`,`c`,`d` LIMIT/, 'Can ascend just first column');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/issue_1166.t-46- $output,
percona-toolkit-3.2.1/t/pt-archiver/issue_1166.t:47: qr/DELETE FROM `test`\.`issue_131_src` WHERE \(`id` = \?\)$/m,
percona-toolkit-3.2.1/t/pt-archiver/issue_1166.t-48- "No LIMIT 1 with unique index (issue 1166)"
##############################################
percona-toolkit-3.2.1/t/pt-archiver/issue_1166.t-76- $output,
percona-toolkit-3.2.1/t/pt-archiver/issue_1166.t:77: qr/DELETE FROM `test`\.`issue_131_src` WHERE \(\(\(`id` >= \?\)\)\) AND \(\(\(`id` <= \?\)\)\) AND \(1=1\)$/m,
percona-toolkit-3.2.1/t/pt-archiver/issue_1166.t-78- "No LIMIT with bulk delete (issue 1170)"
##############################################
percona-toolkit-3.2.1/t/pt-archiver/issue_1229.t-53-
percona-toolkit-3.2.1/t/pt-archiver/issue_1229.t:54:diag(`rm -rf $file >/dev/null`);
percona-toolkit-3.2.1/t/pt-archiver/issue_1229.t-55-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/issue_1229.t-75-
percona-toolkit-3.2.1/t/pt-archiver/issue_1229.t:76:diag(`rm -rf $file >/dev/null`);
percona-toolkit-3.2.1/t/pt-archiver/issue_1229.t-77-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/issue_131.t-40-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/issue_131.t:41: sub { pt_archiver::main(qw(--where 1=1), "--source", "F=$cnf,D=test,t=issue_131_src", qw(--statistics --dest t=issue_131_dst)) },
percona-toolkit-3.2.1/t/pt-archiver/issue_131.t-42-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/issue_524.t-39-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/issue_524.t:40: sub { pt_archiver::main(qw(--where 1=1 --dry-run --no-delete), "--source", "F=$cnf,D=test,t=issue_131_src", qw(--dest t=issue_131_dst)) },
percona-toolkit-3.2.1/t/pt-archiver/issue_524.t-41-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/issue_655.t-40-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/issue_655.t:41: sub { pt_archiver::main(qw(--where 1=1), "--source", "F=$cnf,D=test,t=t", qw(--purge --primary-key-only)) },
percona-toolkit-3.2.1/t/pt-archiver/issue_655.t-42- stderr => 1,
##############################################
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-38-$sb->load_file('master', 't/pt-archiver/samples/tables1-4.sql');
percona-toolkit-3.2.1/t/pt-archiver/plugin.t:39:$output = `$cmd --where 1=1 --source m=Plugin1,D=test,t=table_1,F=$cnf --dest t=table_2 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-40-is($output, '', 'Loading a blank plugin worked OK');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-46-$sb->load_file('master', 't/pt-archiver/samples/table5.sql');
percona-toolkit-3.2.1/t/pt-archiver/plugin.t:47:$output = `$cmd --source m=Plugin2,D=test,t=table_5,F=$cnf --purge --limit 50 --where 'a<current_date - interval 1 day' 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-48-is($output, '', 'No errors with strictly ascending index');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-54-$sb->load_file('master', 't/pt-archiver/samples/tables1-4.sql');
percona-toolkit-3.2.1/t/pt-archiver/plugin.t:55:$output = `$cmd --where 1=1 --source m=Plugin3,D=test,t=table_1,F=$cnf --purge 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-56-is($output, '', 'Running with plugin did not die');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-63-$sb->load_file('master', 't/pt-archiver/samples/tables7-9.sql');
percona-toolkit-3.2.1/t/pt-archiver/plugin.t:64:$output = `$cmd --where 1=1 --source D=test,t=table_7,F=$cnf --dest m=Plugin4,t=table_8 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-65-is($output, '', 'Loading plugin worked OK');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-76-$sb->load_file('master', 't/pt-archiver/samples/table10.sql');
percona-toolkit-3.2.1/t/pt-archiver/plugin.t:77:$output = `$cmd --where 1=1 --source m=Plugin5,D=test,t=tmp_table,F=$cnf --dest t=table_10 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-78-is($output, '', 'Loading plugin worked OK');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-85-$sb->load_file('master', 't/pt-archiver/samples/table13.sql');
percona-toolkit-3.2.1/t/pt-archiver/plugin.t:86:$output = `$cmd --where 1=1 --source D=test,t=table_13,F=$cnf --dest m=Plugin6,t=table_10 2>&1`;
percona-toolkit-3.2.1/t/pt-archiver/plugin.t-87-is($output, '', 'Loading plugin worked OK');
##############################################
percona-toolkit-3.2.1/t/pt-archiver/purge.t-38-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/purge.t:39: sub { pt_archiver::main(qw(--where 1=1), "--source", "D=test,t=table_1,F=$cnf", qw(--purge)) },
percona-toolkit-3.2.1/t/pt-archiver/purge.t-40-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/purge.t-49-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/purge.t:50: sub { pt_archiver::main(qw(--where 1=1), "--source", "D=test,t=table_1,F=$cnf", qw(--commit-each --limit 1 --purge)) },
percona-toolkit-3.2.1/t/pt-archiver/purge.t-51-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/purge.t-60-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/purge.t:61: sub { pt_archiver::main(qw(--where 1=1), "--source", "D=test,t=table_1,F=$cnf", qw(--where a<4 --purge)) },
percona-toolkit-3.2.1/t/pt-archiver/purge.t-62-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/purge.t-71-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/purge.t:72: sub { pt_archiver::main(qw(--where 1=1), "--source", "D=test,t=t1,F=$cnf", qw(--purge --primary-key-only)) },
percona-toolkit-3.2.1/t/pt-archiver/purge.t-73- stderr => 1,
##############################################
percona-toolkit-3.2.1/t/pt-archiver/res_fk.t-56-# MUST USE --txn-size 0
percona-toolkit-3.2.1/t/pt-archiver/res_fk.t:57:diag(`$cmd --where 'id=2' --source F=$cnf,D=test,t=comp,m=res_fk --dest D=test_archived,t=comp --txn-size 0`);
percona-toolkit-3.2.1/t/pt-archiver/res_fk.t-58-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/safe_auto_increment.t-38-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/safe_auto_increment.t:39: sub { pt_archiver::main(qw(--purge --where 1=1), "--source", "D=test,t=table_12,F=$cnf") },
percona-toolkit-3.2.1/t/pt-archiver/safe_auto_increment.t-40-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/safe_auto_increment.t-47-$output = output(
percona-toolkit-3.2.1/t/pt-archiver/safe_auto_increment.t:48: sub { pt_archiver::main(qw(--no-safe-auto-increment --purge --where 1=1), "--source", "D=test,t=table_12,F=$cnf") },
percona-toolkit-3.2.1/t/pt-archiver/safe_auto_increment.t-49-);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/samples/compact_col_vals.pm-65- my $db_tbl = $q->quote($args{db}, $args{tbl});
percona-toolkit-3.2.1/t/pt-archiver/samples/compact_col_vals.pm:66: my $sql = "UPDATE $db_tbl SET `$compact_column`=? "
percona-toolkit-3.2.1/t/pt-archiver/samples/compact_col_vals.pm:67: . "WHERE `$compact_column`=?";
percona-toolkit-3.2.1/t/pt-archiver/samples/compact_col_vals.pm-68- PTDEBUG && _d('sth:', $sql);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/samples/delete_more.pm-132- my $sql = "DELETE FROM $self->{other_tbl} "
percona-toolkit-3.2.1/t/pt-archiver/samples/delete_more.pm:133: . "WHERE $other_table_col=$val";
percona-toolkit-3.2.1/t/pt-archiver/samples/delete_more.pm-134- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/samples/res_fk.pm-58- my $dbh = $args{dbh};
percona-toolkit-3.2.1/t/pt-archiver/samples/res_fk.pm:59: my $src_db = "`$args{db}`";
percona-toolkit-3.2.1/t/pt-archiver/samples/res_fk.pm-60- my $dst_db = '`test_archived`';
##############################################
percona-toolkit-3.2.1/t/pt-archiver/samples/res_fk.pm-79-
percona-toolkit-3.2.1/t/pt-archiver/samples/res_fk.pm:80: $sql = "SELECT DISTINCT `id` FROM $src_db.`prod` WHERE comp_id=?";
percona-toolkit-3.2.1/t/pt-archiver/samples/res_fk.pm-81- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t-50-$sb->load_file('master', 't/pt-archiver/samples/table1.sql');
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t:51:diag(`touch $sentinel`);
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t-52-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t-73-
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t:74:diag(`rm -f $sentinel`);
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t-75-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t-86-
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t:87:diag(`rm -f $sentinel`);
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t-88-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t-91-# #############################################################################
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t:92:diag(`touch $pid_file`);
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t-93-
##############################################
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t-107-
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t:108:diag(`rm -f $pid_file`);
percona-toolkit-3.2.1/t/pt-archiver/standard_options.t-109-
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/basics.t-59- "begin",
percona-toolkit-3.2.1/t/pt-deadlock-logger/basics.t:60: "select * from test.dl where a = $child",
percona-toolkit-3.2.1/t/pt-deadlock-logger/basics.t-61- "update test.dl set a = $child where a <> $child",
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/bugs.t-144-my $config = "/tmp/pt-deadlock-logger-test.conf.$PID";
percona-toolkit-3.2.1/t/pt-deadlock-logger/bugs.t:145:`cp $trunk/t/pt-deadlock-logger/samples/pt-deadlock-logger-test.conf $config`;
percona-toolkit-3.2.1/t/pt-deadlock-logger/bugs.t-146-
percona-toolkit-3.2.1/t/pt-deadlock-logger/bugs.t:147:my $output = `$trunk/bin/pt-deadlock-logger --config $config --iteration 1 2>&1`;
percona-toolkit-3.2.1/t/pt-deadlock-logger/bugs.t-148-
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/bugs.t-154-
percona-toolkit-3.2.1/t/pt-deadlock-logger/bugs.t:155:diag(`rm -rf $config`);
percona-toolkit-3.2.1/t/pt-deadlock-logger/bugs.t-156-
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/clear_deadlocks.t-38-# only search the debug output for evidence that it was created.
percona-toolkit-3.2.1/t/pt-deadlock-logger/clear_deadlocks.t:39:$output = `PTDEBUG=1 $trunk/bin/pt-deadlock-logger F=$cnf,D=test --clear-deadlocks test.make_deadlock --iterations 1 2>&1`;
percona-toolkit-3.2.1/t/pt-deadlock-logger/clear_deadlocks.t-40-like(
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/clear_deadlocks.t-54-# #############################################################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/clear_deadlocks.t:55:$output = `PTDEBUG=1 $trunk/bin/pt-deadlock-logger F=$cnf,D=test --clear-deadlocks test.make_deadlock2 --interval 1 --run-time 1 2>&1`;
percona-toolkit-3.2.1/t/pt-deadlock-logger/clear_deadlocks.t-56-like(
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t-22-# Wrong design: https://bugs.launchpad.net/percona-toolkit/+bug/1206728
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t:23:#$output = `$trunk/bin/pt-deadlock-logger --dest D=test,t=deadlocks 2>&1`;
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t-24-#like(
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t-29-
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t:30:$output = `$trunk/bin/pt-deadlock-logger h=127.1 --dest t=deadlocks 2>&1`;
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t-31-like(
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t-36-
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t:37:$output = `$trunk/bin/pt-deadlock-logger --dest D=test 2>&1`;
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t-38-like(
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t-47-
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t:48:system("$trunk/bin/pt-deadlock-logger --i-am-the-error >/dev/null 2>&1");
percona-toolkit-3.2.1/t/pt-deadlock-logger/option_sanity.t-49-my $exit_status = $CHILD_ERROR >> 8;
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t-58-my $pid_file = "/tmp/pt-deadlock-logger-test.pid.$PID";
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t:59:diag(`touch $pid_file`);
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t-60-
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t-82-
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t:83:$output = `$trunk/bin/pt-deadlock-logger $dsn --dest D=test,t=deadlocks --daemonize --run-time 10 --interval 1 --pid $pid_file 1>/dev/null 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t-84-
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t-86-
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t:87:$output = `ps x | grep 'pt-deadlock-logger $dsn' | grep -v grep`;
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t-88-like(
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t-113-# Check that it won't run if the PID file already exists (issue 383).
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t:114:diag(`touch $pid_file`);
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t-115-ok(
##############################################
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t-133-
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t:134:$output = `ps x | grep 'pt-deadlock-logger $dsn' | grep -v grep`;
percona-toolkit-3.2.1/t/pt-deadlock-logger/standard_options.t-135-
##############################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/basics.t-34-
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/basics.t:35:$output = `$cmd -d mysql -t columns_priv -v`;
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/basics.t-36-like($output,
##############################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/basics.t-40-
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/basics.t:41:is(`$cmd -d test --nosummary`, '', 'No dupes on clean sandbox');
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/basics.t-42-
##############################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/clustered_keys.t-74-
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/clustered_keys.t:75:my $output = `PTDEBUG=1 $trunk/bin/pt-duplicate-key-checker F=$cnf -d bug_1036804 2>&1`;
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/clustered_keys.t-76-
##############################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/clustered_keys.t-88-
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/clustered_keys.t:89:$output = `$trunk/bin/pt-duplicate-key-checker F=$cnf -d fk_chosen_index_bug_1201443 2>&1`;
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/clustered_keys.t-90-
##############################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/issue_298.t-37-# #############################################################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/issue_298.t:38:$output = `$cmd -d mysql -t columns_priv 2>&1`;
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/issue_298.t-39-unlike($output, qr/Use of uninitialized var/, 'Does not crash on undef var');
##############################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/issue_663.t-39-$sb->load_file('master', 't/pt-duplicate-key-checker/samples/issue_663.sql');
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/issue_663.t:40:$output = `$cmd -d issue_663`;
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/issue_663.t-41-like(
##############################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t-22-
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t:23:diag(`rm -f $pid_file >/dev/null`);
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t-24-
##############################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t-28-
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t:29:diag(`touch $pid_file`);
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t-30-
##############################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t-42- # Incorrect behavior is anything else, including not returning control after 5 seconds
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t:43: $output = `$cmd -d issue_295 --pid $pid_file 2>&1`;
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t-44-
##############################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t-65-# #############################################################################
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t:66:diag(`rm -f $pid_file >/dev/null`);
percona-toolkit-3.2.1/t/pt-duplicate-key-checker/standard_options.t-67-exit;
##############################################
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t-24-
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t:25:my $output = `$cmd --help`;
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t-26-like($output, qr/Options and values/, 'It lives');
##############################################
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t-116-
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t:117:system("($cmd --lines 10000 $trunk/bin/pt-fifo-split > /dev/null 2>&1 < /dev/null)&");
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t-118-
##############################################
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t-128-
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t:129:system("($cmd $trunk/t/pt-fifo-split/samples/file_with_lines --offset 2 > /dev/null 2>&1 < /dev/null)&");
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t-130-
##############################################
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t-150-my $pid_file = "/tmp/pt-fifo-split.pid.$PID";
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t:151:diag(`touch $pid_file`);
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t-152-
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t:153:$output = `$cmd --pid $pid_file 2>&1`;
percona-toolkit-3.2.1/t/pt-fifo-split/pt-fifo-split.t-154-like(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-31-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:32:$output = `$cmd mysql --tblregex column`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-33-like($output, qr/`mysql`.`columns_priv`/, 'Found mysql.columns_priv');
percona-toolkit-3.2.1/t/pt-find/pt-find.t-34-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:35:$output = `$cmd mysql`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-36-like(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-41-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:42:$output = `$cmd --view .`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-43-like(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-64- # specified."
percona-toolkit-3.2.1/t/pt-find/pt-find.t:65: $output = `$cmd --autoinc 1001`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-66- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-73- # Test that explicit --print doesn't blow up.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:74: $output = `$cmd --autoinc 1001 --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-75- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-81- # Test --column-*
percona-toolkit-3.2.1/t/pt-find/pt-find.t:82: $output = `$cmd sakila --column-name release_year --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-83- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-88-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:89: $output = `$cmd sakila --tbllike actor --column-type smallint --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-90- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-96- # Test --view.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:97: $output = `$cmd sakila --view 'left join \`film_category\`' --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-98- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-105-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:106: $output = `$cmd sakila --view blah --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-107- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-113- # Test --procedure.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:114: $output = `$cmd pt_find --procedure param1 --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-115- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-120-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:121: $output = `$cmd pt_find --procedure blah --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-122- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-128- # Test --function.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:129: $output = `$cmd pt_find --function Hello --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-130- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-135-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:136: $output = `$cmd pt_find --function blah --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-137- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-143- # Test --trigger without --trigger-table.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:144: $output = `$cmd pt_find --trigger 'INSERT INTO t2' --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-145- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-150-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:151: $output = `$cmd pt_find --trigger blah --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-152- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-158- # Test --trigger with --trigger-table.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:159: $output = `$cmd pt_find --trigger 'INSERT INTO t2' --trigger-table t1 --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-160- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-165-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:166: $output = `$cmd pt_find --trigger blah --trigger-table t1 --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-167- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-172-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:173: $output = `$cmd pt_find --trigger 'INSERT INTO t2' --trigger-table foo --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-174- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-179-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:180: $output = `$cmd pt_find --trigger blah --trigger-table foo --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-181- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-189- # Test NULL sizes.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:190: $output = `$cmd sakila --datasize NULL`,
percona-toolkit-3.2.1/t/pt-find/pt-find.t-191- is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-208-# Test --procedure.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:209:$output = `$cmd sakila_test --procedure min_monthly_purchases --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-210-is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-215-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:216:$output = `$cmd sakila_test --procedure blah --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-217-is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-223-# Test --function.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:224:$output = `$cmd sakila_test --function v_out --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-225-is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-230-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:231:$output = `$cmd sakila_test --function blah --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-232-is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-238-# Test --trigger without --trigger-table.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:239:$output = `$cmd sakila_test --trigger 'UPDATE film_text' --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-240-is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-245-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:246:$output = `$cmd sakila_test --trigger blah --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-247-is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-253-# Test --trigger with --trigger-table.
percona-toolkit-3.2.1/t/pt-find/pt-find.t:254:$output = `$cmd sakila_test --trigger 'UPDATE film_text' --trigger-table film --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-255-is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-260-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:261:$output = `$cmd sakila_test --trigger blah --trigger-table film --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-262-is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-267-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:268:$output = `$cmd sakila_test --trigger 'UPDATE film_text' --trigger-table foo --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-269-is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-274-
percona-toolkit-3.2.1/t/pt-find/pt-find.t:275:$output = `$cmd sakila_test --trigger blah --trigger-table foo --print`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-276-is(
##############################################
percona-toolkit-3.2.1/t/pt-find/pt-find.t-287-`touch /tmp/mk-script.pid`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t:288:$output = `$cmd mysql --pid /tmp/mk-script.pid 2>&1`;
percona-toolkit-3.2.1/t/pt-find/pt-find.t-289-like(
##############################################
percona-toolkit-3.2.1/t/pt-fingerprint/basics.t-21-
percona-toolkit-3.2.1/t/pt-fingerprint/basics.t:22:$output = `$trunk/bin/pt-fingerprint --help`;
percona-toolkit-3.2.1/t/pt-fingerprint/basics.t-23-like(
##############################################
percona-toolkit-3.2.1/t/pt-fingerprint/basics.t-32- if ( ! -f "$sample/$file.fingerprint" ) {
percona-toolkit-3.2.1/t/pt-fingerprint/basics.t:33: `$pqd --fingerprint $sample/$file | awk '/Fingerprint/ { getline; print; exit; }' | sed -e 's/^#[ ]*//' > $sample/$file.fingerprint`;
percona-toolkit-3.2.1/t/pt-fingerprint/basics.t-34- diag("Created $sample/$file.fingerprint");
percona-toolkit-3.2.1/t/pt-fingerprint/basics.t-35- }
percona-toolkit-3.2.1/t/pt-fingerprint/basics.t:36: chomp(my $expect = `cat $sample/$file.fingerprint`);
percona-toolkit-3.2.1/t/pt-fingerprint/basics.t-37- my $got = output(
##############################################
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t-40-# First, create a foreign key error.
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t:41:`/tmp/12345/use -D test < $trunk/t/pt-fk-error-logger/samples/fke.sql 1>/dev/null 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t-42-
##############################################
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t-163-# #############################################################################
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t:164:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t:165:diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t-166-diag(`/tmp/12348/use -e "create database test"`);
##############################################
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t-182-
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t:183:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t-184-
##############################################
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t-189-my $pid_file = "/tmp/pt-fk-error-log-test-$PID.pid";
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t:190:diag(`touch $pid_file`);
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t-191-
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t:192:$output = `$trunk/bin/pt-fk-error-logger h=127.1,P=12345,u=msandbox,p=msandbox --pid $pid_file --iterations 1 2>&1`;
percona-toolkit-3.2.1/t/pt-fk-error-logger/basics.t-193-
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-40-
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:41:diag(`rm $sent_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-42-
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-104-# Start one daemonized instance to update it
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:105:system("$cmd --daemonize -D test --update --run-time 3s --pid $pid_file 1>/dev/null 2>/dev/null");
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-106-PerconaTest::wait_for_files($pid_file);
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:107:$output = `$ps_grep_cmd`;
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-108-like($output, qr/$cmd/, 'It is running');
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-110-my ($pid) = $output =~ /^\s*(\d+)\s+/;
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:111:$output = `cat $pid_file` if -f $pid_file;
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-112-is($output, $pid, 'PID file has correct PID');
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-113-
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:114:$output = `$cmd -D test --monitor --run-time 1s`;
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-115-if ( $output ) {
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-125-
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:126:$output = `$ps_grep_cmd`;
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-127-chomp $output;
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-132-# daemon quit.
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:133:system("$cmd --daemonize -D test --update 1>/dev/null 2>/dev/null");
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:134:$output = `$ps_grep_cmd`;
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-135-like($output, qr/$cmd/, 'It is running');
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:136:$output = `$cmd -D test --stop`;
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-137-like($output, qr/Successfully created/, 'Created sentinel');
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-138-sleep(2);
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:139:$output = `$ps_grep_cmd`;
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-140-unlike($output, qr/$cmd/, 'It is not running');
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-292-my $b = $ENV{PERCONA_TOOLKIT_BRANCH};
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:293:$output = `perl $b/bin/pt-heartbeat -D test --interval 0.8 --update --replace --run-time 1 u=bob,F=/tmp/12346/my.sandbox.cnf 2>&1`;
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-294-
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-315-#revert to original binlog_format
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:316:diag(`/tmp/12346/use -u root -e "set global binlog_format=$orig_binlog_format"`);
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-317-diag(`/tmp/12345/use -u root -e "DROP DATABASE test"`);
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-322-# #############################################################################
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t:323:diag(`rm $pid_file $sent_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-heartbeat/basics.t-324-# $sb->wipe_clean($master_dbh);
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/multi_update_mode.t-53-foreach my $port (@ports) {
percona-toolkit-3.2.1/t/pt-heartbeat/multi_update_mode.t:54: system("$trunk/bin/pt-heartbeat -h 127.1 -u msandbox -p msandbox -P $port --database test --table heartbeat --create-table --update --interval 0.5 --daemonize --pid $pid_file.$port >/dev/null");
percona-toolkit-3.2.1/t/pt-heartbeat/multi_update_mode.t-55-
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/multi_update_mode.t-236-# ############################################################################
percona-toolkit-3.2.1/t/pt-heartbeat/multi_update_mode.t:237:diag(`$trunk/bin/pt-heartbeat --stop >/dev/null`);
percona-toolkit-3.2.1/t/pt-heartbeat/multi_update_mode.t-238-sleep 1;
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/pt-1508.t-80-
percona-toolkit-3.2.1/t/pt-heartbeat/pt-1508.t:81:my $output = `PTDEBUG=1 $trunk/bin/pt-heartbeat --database=sakila --table heartbeat --read-only-interval 2 --check-read-only --run-time 5 --update $slave1_dsn 2>&1`;
percona-toolkit-3.2.1/t/pt-heartbeat/pt-1508.t-82-
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-59-# Remove any leftover instances
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t:60:diag(`$trunk/bin/pt-heartbeat --stop >/dev/null`);
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-61-sleep 1;
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-62-
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t:63:diag(`rm -rf $sentinel >/dev/null 2>&1`);
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-64-$sb->create_dbs($node1, ['test']);
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-93- my @pids = @exec_pids, map { chomp; $_ } map { slurp_file($_) } @pidfiles;
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t:94: diag(`$trunk/bin/pt-heartbeat --stop >/dev/null`);
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-95-
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-199-
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t:200:diag(`rm -rf $query_table_stop`);
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t:201:diag(`echo > $query_table_output`);
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-202-
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-203-my $cmd = "$trunk/$pt_osc_sample/query_table.pl";
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t:204:system("$cmd 127.0.0.1 $node1_port pt_osc t id $query_table_stop $query_table_pid >$query_table_output 2>&1 &");
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-205-wait_until(sub{-e $query_table_pid});
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-223-
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t:224:diag(`touch $query_table_stop`);
percona-toolkit-3.2.1/t/pt-heartbeat/pxc.t-225-chomp(my $p = slurp_file($query_table_pid));
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/standard_options.t-41-`touch /tmp/mk-script.pid`;
percona-toolkit-3.2.1/t/pt-heartbeat/standard_options.t:42:$output = `$cmd --host 127.1 -u msandbox -p msandbox --port 12345 -D test --check --recurse 1 --pid /tmp/mk-script.pid --create-table --master-server-id 12345 2>&1`;
percona-toolkit-3.2.1/t/pt-heartbeat/standard_options.t-43-like(
##############################################
percona-toolkit-3.2.1/t/pt-heartbeat/utc.t-71- my @pids = @exec_pids, map { chomp; $_ } map { slurp_file($_) } @pidfiles;
percona-toolkit-3.2.1/t/pt-heartbeat/utc.t:72: diag(`$trunk/bin/pt-heartbeat --stop >/dev/null`);
percona-toolkit-3.2.1/t/pt-heartbeat/utc.t-73-
##############################################
percona-toolkit-3.2.1/t/pt-index-usage/option_sanity.t-19-
percona-toolkit-3.2.1/t/pt-index-usage/option_sanity.t:20:$output = `$cmd --save-results-database h=127.1,P=12345 2>&1`;
percona-toolkit-3.2.1/t/pt-index-usage/option_sanity.t-21-like(
##############################################
percona-toolkit-3.2.1/t/pt-ioprofile/pt-ioprofile.t-30-
percona-toolkit-3.2.1/t/pt-ioprofile/pt-ioprofile.t:31:my $output = `$trunk/bin/pt-ioprofile --help 2>&1`;
percona-toolkit-3.2.1/t/pt-ioprofile/pt-ioprofile.t-32-like(
##############################################
percona-toolkit-3.2.1/t/pt-ioprofile/pt-ioprofile.t-38-my $t0 = time;
percona-toolkit-3.2.1/t/pt-ioprofile/pt-ioprofile.t:39:$output = `$trunk/bin/pt-ioprofile --run-time 3 2>&1`;
percona-toolkit-3.2.1/t/pt-ioprofile/pt-ioprofile.t-40-my $t1 = time;
##############################################
percona-toolkit-3.2.1/t/pt-ioprofile/pt-ioprofile.t-60-# #############################################################################
percona-toolkit-3.2.1/t/pt-ioprofile/pt-ioprofile.t:61:$output = `$trunk/bin/pt-ioprofile --run-time 2 --b theprocname 2>&1`;
percona-toolkit-3.2.1/t/pt-ioprofile/pt-ioprofile.t-62-like(
##############################################
percona-toolkit-3.2.1/t/pt-ioprofile/unit_tests.pl-20-
percona-toolkit-3.2.1/t/pt-ioprofile/unit_tests.pl:21:system("$trunk/util/test-bash-functions $trunk/t/lib/samples/bash/dummy.sh @ARGV");
percona-toolkit-3.2.1/t/pt-ioprofile/unit_tests.pl-22-
##############################################
percona-toolkit-3.2.1/t/pt-kill/basics.t-39-
percona-toolkit-3.2.1/t/pt-kill/basics.t:40:$output = `$cmd --busy-time 1s --print --run-time 10`;
percona-toolkit-3.2.1/t/pt-kill/basics.t-41-
##############################################
percona-toolkit-3.2.1/t/pt-kill/basics.t-62-system("/tmp/12345/use -e 'select sleep(10)' >/dev/null&");
percona-toolkit-3.2.1/t/pt-kill/basics.t:63:$output = `$cmd --busy-time 1s --print --run-time 11s`;
percona-toolkit-3.2.1/t/pt-kill/basics.t-64-@times = $output =~ m/\(Query (\d+) sec\)/g;
##############################################
percona-toolkit-3.2.1/t/pt-kill/basics.t-87-
percona-toolkit-3.2.1/t/pt-kill/basics.t:88:system(qq($trunk/util/kill-mysql-process db=pt_kill_test wait=2 &));
percona-toolkit-3.2.1/t/pt-kill/basics.t-89-
##############################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-29-# #############################################################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:30:diag(`rm $out 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-31-
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:32:$output = `$cmd --test-matching $trunk/t/lib/samples/pl/recset001.txt --match-command Query --execute-command 'echo hello > $out'`;
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-33-is(
##############################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-38-
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:39:chomp($output = `cat $out 2>/dev/null`),
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-40-is(
##############################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-45-
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:46:diag(`rm $out 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-47-
##############################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-53-
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:54: $output = `$cmd --match-info 'select sleep' --run-time 2 --interval 1 --print --execute-command 'echo batty > $out'`;
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-55-
##############################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-61-
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:62: chomp($output = `cat $out 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-63- is(
##############################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-70- sleep 1;
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:71: diag(`rm $out 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-72-
##############################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-78- my $log_file = "/tmp/pt-kill-test.$PID.log";
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:79: diag(`rm $sentinel 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:80: diag(`rm $pid_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:81: diag(`rm $log_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-82-
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:83: `$cmd --daemonize --match-db pt_kill_zombie_test --interval 1 --print --execute-command 'echo zombie > $out' --verbose --pid $pid_file --log $log_file --sentinel $sentinel`;
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-84- PerconaTest::wait_for_files($pid_file, $log_file, $out);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:85: $output = `grep Executed $log_file`;
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-86- like(
##############################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-98-
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:99: diag(`touch $sentinel`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-100- sleep 1;
##############################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-111-
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:112: diag(`rm $sentinel 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:113: diag(`rm $pid_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:114: diag(`rm $log_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-115-}
##############################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-119-# #############################################################################
percona-toolkit-3.2.1/t/pt-kill/execute_command.t:120:diag(`rm $out 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-kill/execute_command.t-121-$sb->wipe_clean($master_dbh) if $master_dbh;
##############################################
percona-toolkit-3.2.1/t/pt-kill/kill.t-44-
percona-toolkit-3.2.1/t/pt-kill/kill.t:45:system($sys_cmd);
percona-toolkit-3.2.1/t/pt-kill/kill.t-46-sleep 0.5;
##############################################
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t-280-my $log_file = "/tmp/pt-kill-test-log.$PID";
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t:281:diag(`rm -f $pid_file $log_file >/dev/null 2>&1`);
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t-282-
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t-283-setup_target();
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t:284:system("$trunk/bin/pt-kill $master_dsn --daemonize --run-time 1 --kill-query --interval 1 --match-db $target_db --log-dsn $slave_dsn,$log_dsn --pid $pid_file --log $log_file");
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t-285-PerconaTest::wait_for_files($pid_file); # start
##############################################
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t-311-my $cnf_file = "/tmp/pt-kill-test.cnf.$PID";
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t:312:diag(`rm -f $pid_file $log_file $cnf_file >/dev/null 2>&1`);
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t-313-
##############################################
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t-328-setup_target();
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t:329:system("$trunk/bin/pt-kill --config $cnf_file");
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t-330-PerconaTest::wait_for_files($pid_file); # start
##############################################
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t-347-
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t:348:diag(`rm -f $pid_file $log_file $cnf_file >/dev/null 2>&1`);
percona-toolkit-3.2.1/t/pt-kill/log_dsn.t-349-
##############################################
percona-toolkit-3.2.1/t/pt-kill/standard_options.t-34- # its debug stuff in this case.
percona-toolkit-3.2.1/t/pt-kill/standard_options.t:35: `$cmd --print --interval 1s --run-time 2 --pid /tmp/pt-kill.pid --log /tmp/pt-kill.log --daemonize`;
percona-toolkit-3.2.1/t/pt-kill/standard_options.t-36- $output = `ps -eaf | grep 'pt-kill \-F'`;
##############################################
percona-toolkit-3.2.1/t/pt-kill/standard_options.t-63-diag(`touch /tmp/pt-script.pid`);
percona-toolkit-3.2.1/t/pt-kill/standard_options.t:64:$output = `$cmd --test-matching $trunk/t/lib/samples/pl/recset006.txt --match-state Locked --print --pid /tmp/pt-script.pid 2>&1`;
percona-toolkit-3.2.1/t/pt-kill/standard_options.t-65-like(
##############################################
percona-toolkit-3.2.1/t/pt-mext/pt-mext.t-16-like(
percona-toolkit-3.2.1/t/pt-mext/pt-mext.t:17: `$trunk/bin/pt-mext 2>&1`,
percona-toolkit-3.2.1/t/pt-mext/pt-mext.t-18- qr/Usage:/,
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t-53-
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t:54:`$env $trunk/bin/$tool --sleep 1 --save-samples $dir -- --defaults-file=/tmp/12345/my.sandbox.cnf`;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t-55-
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t-67- "And leaves all files in there"
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t:68:) or diag($n_files, `ls -l $dir`);
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t-69-
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t-75-
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t:76:my $out = `$env $trunk/bin/$tool --sleep 1 --databases mysql 2>/dev/null -- --defaults-file=/tmp/12345/my.sandbox.cnf`;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t-77-
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t-105- local $ENV{_NO_FALSE_NEGATIVES} = 1;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t:106: print `$env $trunk/bin/$tool --read-samples $trunk/t/pt-mysql-summary/samples/temp00$i -- --defaults-file=/tmp/12345/my.sandbox.cnf | tail -n+3 | perl -wlnpe 's/Skipping schema analysis.*/Specify --databases or --all-databases to dump and summarize schemas/' | grep -v jemalloc`
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t-107- },
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t-115-
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t:116:my $sh = `sh $trunk/bin/$tool --help`;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t:117:my $bash = `bash $trunk/bin/$tool --help`;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary.t-118-
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-55-
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t:56:`$env $trunk/bin/$tool --sleep 1 --save-samples $dir -- --defaults-file=/tmp/12345/my.sandbox.cnf`;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-57-
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-69- "And leaves all files in there"
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t:70:) or diag($n_files, `ls -l $dir`);
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-71-
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-77-
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t:78:my $out = `$env $trunk/bin/$tool --sleep 1 --databases mysql 2>/dev/null -- --defaults-file=/tmp/12345/my.sandbox.cnf`;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-79-
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-103- local $ENV{_NO_FALSE_NEGATIVES} = 1;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t:104: print `$env $trunk/bin/$tool --read-samples $trunk/t/pt-mysql-summary/samples/temp00$i -- --defaults-file=/tmp/12345/my.sandbox.cnf | tail -n+3 | perl -wlnpe 's/Skipping schema analysis.*/Specify --databases or --all-databases to dump and summarize schemas/' | grep -v jemalloc`
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-105- },
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-113-
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t:114:my $sh = `sh $trunk/bin/$tool --help`;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t:115:my $bash = `bash $trunk/bin/$tool --help`;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-116-
##############################################
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-129-
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t:130:$out = `bash $trunk/bin/$tool --list-encrypted-tables`;
percona-toolkit-3.2.1/t/pt-mysql-summary/pt-mysql-summary_encryption.t-131-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/alter_active_table.t-49-
percona-toolkit-3.2.1/t/pt-online-schema-change/alter_active_table.t:50: diag(`rm -rf $query_table_stop`);
percona-toolkit-3.2.1/t/pt-online-schema-change/alter_active_table.t:51: diag(`echo > $query_table_output`);
percona-toolkit-3.2.1/t/pt-online-schema-change/alter_active_table.t-52-
percona-toolkit-3.2.1/t/pt-online-schema-change/alter_active_table.t-53- my $cmd = "$trunk/$sample/query_table.pl";
percona-toolkit-3.2.1/t/pt-online-schema-change/alter_active_table.t:54: system("$cmd 127.1 12345 $db $tbl $pkcol $query_table_stop $query_table_pid >$query_table_output &");
percona-toolkit-3.2.1/t/pt-online-schema-change/alter_active_table.t-55- wait_until(sub{-e $query_table_pid});
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/alter_active_table.t-60-sub stop_query_table {
percona-toolkit-3.2.1/t/pt-online-schema-change/alter_active_table.t:61: diag(`touch $query_table_stop`);
percona-toolkit-3.2.1/t/pt-online-schema-change/alter_active_table.t-62- open my $fh, '<', $query_table_pid or die $OS_ERROR;
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/ansi_quotes.t-19-
percona-toolkit-3.2.1/t/pt-online-schema-change/ansi_quotes.t:20:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-online-schema-change/ansi_quotes.t:21:diag(`MODE_ANSI=1 $trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-online-schema-change/ansi_quotes.t-22-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/ansi_quotes.t-145-# #############################################################################
percona-toolkit-3.2.1/t/pt-online-schema-change/ansi_quotes.t:146:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-online-schema-change/ansi_quotes.t-147-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-99- $sb->load_file('master', "$sample/$file");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:100: $master_dbh->do("USE `$db`");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:101: $slave_dbh->do("USE `$db`");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-102- }
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-114- my $orig_rows = $master_dbh->selectall_arrayref(
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:115: "SELECT $cols FROM $table ORDER BY `$pk_col`");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-116-
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-117- my $orig_tbls = $master_dbh->selectall_arrayref(
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:118: "SHOW TABLES FROM `$db`");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-119-
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-120- my $orig_max_id = $master_dbh->selectall_arrayref(
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:121: "SELECT MAX(`$pk_col`) FROM `$db`.`$tbl`");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-122-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-125- . " FROM INFORMATION_SCHEMA.TRIGGERS "
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:126: . " WHERE TRIGGER_SCHEMA = '$db' "
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-127- . " AND EVENT_OBJECT_TABLE = '$tbl'";
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-171- # There should be no new or missing tables.
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:172: my $new_tbls = $master_dbh->selectall_arrayref("SHOW TABLES FROM `$db`");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-173- is_deeply(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-179- # Rows in the original and new table should be identical.
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:180: my $query = "SELECT $cols FROM $table ORDER BY `$pk_col`";
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:181: my $new_rows = $master_dbh->selectall_arrayref("SELECT $cols FROM $table ORDER BY `$pk_col`");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-182- my $should_diag;
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-199- $new_rows = $master_dbh->selectall_arrayref(
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:200: "SELECT $cols FROM `$db`.`$new_tbl` ORDER BY `$pk_col`");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-201- is_deeply(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-208- my $new_max_id = $master_dbh->selectall_arrayref(
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:209: "SELECT MAX(`$pk_col`) FROM `$db`.`$tbl`");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-210- is(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-259- my $rows = $master_dbh->selectall_hashref(
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:260: "SHOW TABLE STATUS FROM `$db`", "name");
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-261- is(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-289- $fks->{$real_fk_name}->{name} =~ s/^_//;
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:290: $fks->{$real_fk_name}->{ddl} =~ s/`$real_fk_name`/`$fk_name`/;
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-291- $fk_name => $fks->{$real_fk_name};
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-602- diag('Restoring sakila...');
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t:603: diag(`$trunk/sandbox/load-sakila-db 12345`);
percona-toolkit-3.2.1/t/pt-online-schema-change/basics.t-604-}
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/bugs.t-242- $output,
percona-toolkit-3.2.1/t/pt-online-schema-change/bugs.t:243: qr/\QSuccessfully altered `bug_1041372`.`$tbl`/,
percona-toolkit-3.2.1/t/pt-online-schema-change/bugs.t-244- "pt-osc works on long table names (length " . length($tbl) . ")"
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-18-
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t:19:$output = `$cmd`;
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-20-like(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-25-
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t:26:$output = `$cmd h=127.1,P=12345,t=tbl`;
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-27-like(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-32-
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t:33:$output = `$cmd h=127.1,P=12345,u=msandbox,p=msandbox,D=mysql`;
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-34-like(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-39-
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t:40:$output = `$cmd h=127.1,P=12345,u=msandbox,p=msandbox h=127.1`;
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-41-like(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-46-
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t:47:$output = `$cmd --help`;
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-48-like(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-59-
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t:60:$output = `$cmd h=127.1,P=12345,u=msandbox,p=msandbox --alter-foreign-keys-method drop_swap --no-drop-new-table`;
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-61-like(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-66-
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t:67:$output = `$cmd h=127.1,P=12345,u=msandbox,p=msandbox,D=mysql,t=user --max-load 100 --alter "ENGINE=MyISAM" --dry-run`;
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-68-like(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-73-
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t:74:$output = `$cmd h=127.1,P=12345,u=msandbox,p=msandbox,D=mysql,t=user --critical-load 100 --alter "ENGINE=MyISAM" --dry-run`;
percona-toolkit-3.2.1/t/pt-online-schema-change/option_sanity.t-75-like(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-69- $sb->load_file('master', "$sample/$file");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:70: $master_dbh->do("USE `$db`");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:71: $slave_dbh->do("USE `$db`");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-72- }
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-84- my $orig_rows = $master_dbh->selectall_arrayref(
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:85: "SELECT $cols FROM $table ORDER BY `$pk_col`");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-86-
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-87- my $orig_tbls = $master_dbh->selectall_arrayref(
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:88: "SHOW TABLES FROM `$db`");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-89-
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-90- my $orig_max_id = $master_dbh->selectall_arrayref(
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:91: "SELECT MAX(`$pk_col`) FROM `$db`.`$tbl`");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-92-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-95- . " FROM INFORMATION_SCHEMA.TRIGGERS "
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:96: . " WHERE TRIGGER_SCHEMA = '$db' "
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-97- . " AND EVENT_OBJECT_TABLE = '$tbl'";
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-141- # There should be no new or missing tables.
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:142: my $new_tbls = $master_dbh->selectall_arrayref("SHOW TABLES FROM `$db`");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-143- is_deeply(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-149- # Rows in the original and new table should be identical.
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:150: my $new_rows = $master_dbh->selectall_arrayref("SELECT $cols FROM $table ORDER BY `$pk_col`");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-151- is_deeply(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-167- $new_rows = $master_dbh->selectall_arrayref(
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:168: "SELECT $cols FROM `$db`.`$new_tbl` ORDER BY `$pk_col`");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-169- is_deeply(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-176- my $new_max_id = $master_dbh->selectall_arrayref(
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:177: "SELECT MAX(`$pk_col`) FROM `$db`.`$tbl`");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-178- is(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-227- my $rows = $master_dbh->selectall_hashref(
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:228: "SHOW TABLE STATUS FROM `$db`", "name");
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-229- is(
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-257- $fks->{$real_fk_name}->{name} =~ s/^_//;
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t:258: $fks->{$real_fk_name}->{ddl} =~ s/`$real_fk_name`/`$fk_name`/;
percona-toolkit-3.2.1/t/pt-online-schema-change/preserve_triggers.t-259- $fk_name => $fks->{$real_fk_name};
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/privs.t-55-# ############################################################################
percona-toolkit-3.2.1/t/pt-online-schema-change/privs.t:56:diag(`/tmp/12345/use -u root < $trunk/$sample/osc-user.sql`);
percona-toolkit-3.2.1/t/pt-online-schema-change/privs.t-57-PerconaTest::wait_for_table($slave1_dbh, "mysql.tables_priv", "user='osc_user'");
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-1455.t-61-diag("Loading $num_rows into the table. This might take some time.");
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-1455.t:62:diag(`util/mysql_random_data_load --host=127.0.0.1 --port=$master_port --user=msandbox --password=msandbox employees t1 $num_rows`);
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-1455.t-63-diag("$num_rows rows loaded. Starting tests.");
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-229.t_-48-diag("Loading $num_rows into the table. This might take some time.");
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-229.t_:49:diag(`util/mysql_random_data_load --host=127.0.0.1 --port=12345 --user=msandbox --password=msandbox test test_a $num_rows`);
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-229.t_-50-diag("$num_rows rows loaded. Starting tests.");
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t-37-
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t:38:diag(`$trunk/sandbox/stop-sandbox $master3_port >/dev/null`);
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t:39:diag(`$trunk/sandbox/start-sandbox master $master3_port >/dev/null`);
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t-40-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t-59-diag("Loading $num_rows into the table. This might take some time.");
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t:60:diag(`util/mysql_random_data_load --host=127.0.0.1 --port=$master3_port --user=msandbox --password=msandbox test t3 $num_rows`);
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t-61-diag("$num_rows rows loaded. Starting tests.");
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t-65-my $new_dir='/tmp/tdir';
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t:66:diag(`rm -rf $new_dir`);
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t:67:diag(`mkdir -p $new_dir`);
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t-68-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t-110-$sb->wipe_clean($dbh3);
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t:111:diag(`$trunk/sandbox/stop-sandbox $master3_port >/dev/null`);
percona-toolkit-3.2.1/t/pt-online-schema-change/pt-244.t-112-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/pt_1757.t-49-$sb->load_file('master', "t/pt-online-schema-change/samples/pt-1757.sql");
percona-toolkit-3.2.1/t/pt-online-schema-change/pt_1757.t:50:diag(`util/mysql_random_data_load --host=127.0.0.1 --port=$master_port --user=msandbox --password=msandbox test t1 $num_rows`);
percona-toolkit-3.2.1/t/pt-online-schema-change/pt_1757.t-51-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/skip_innodb.t-21-
percona-toolkit-3.2.1/t/pt-online-schema-change/skip_innodb.t:22:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-online-schema-change/skip_innodb.t:23:diag(`SKIP_INNODB=1 $trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-online-schema-change/skip_innodb.t-24-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/skip_innodb.t-56-# #############################################################################
percona-toolkit-3.2.1/t/pt-online-schema-change/skip_innodb.t:57:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-online-schema-change/skip_innodb.t-58-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_-66-diag("Loading $num_rows into the table. This might take some time.");
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_:67:diag(`util/mysql_random_data_load --host=127.0.0.1 --port=12345 --user=msandbox --password=msandbox test pt178 --bulk-size=1 --max-threads=1 $num_rows`);
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_-68-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_-86-diag("pid: $tmp_file_name");
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_:87:my $output = `$trunk/bin/pt-online-schema-change $args 2>&1`;
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_-88-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_-103-diag("Starting --check-slave-lag test. This is going to take some time due to the delay in the slave");
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_:104:$output = `$trunk/bin/pt-online-schema-change $args 2>&1`;
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_-105-
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_-129- open(STDOUT, '>', $filename);
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_:130: exec("$trunk/bin/pt-online-schema-change $args");
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_-131-}
##############################################
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_-163-diag("Starting --skip-check-slave-lag test. This is going to take some time due to the delay in the slave");
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_:164:$output = `$trunk/bin/pt-online-schema-change $args 2>&1`;
percona-toolkit-3.2.1/t/pt-online-schema-change/slave_lag.t_-165-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/collect_and_report_cycles.t-40-
percona-toolkit-3.2.1/t/pt-query-digest/collect_and_report_cycles.t:41:system("$trunk/bin/pt-query-digest --processlist h=127.1,P=12345,u=msandbox,p=msandbox --run-time 2 --iterations 2 --port 12345 --pid /tmp/mk-query-digest.pid --daemonize 1>/dev/null 2>/dev/null");
percona-toolkit-3.2.1/t/pt-query-digest/collect_and_report_cycles.t-42-chomp($pid = `cat /tmp/mk-query-digest.pid`);
percona-toolkit-3.2.1/t/pt-query-digest/collect_and_report_cycles.t-43-sleep 3;
percona-toolkit-3.2.1/t/pt-query-digest/collect_and_report_cycles.t:44:$output = `ps x | grep $pid | grep processlist | grep -v grep`;
percona-toolkit-3.2.1/t/pt-query-digest/collect_and_report_cycles.t-45-ok(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/collect_and_report_cycles.t-50-sleep 2;
percona-toolkit-3.2.1/t/pt-query-digest/collect_and_report_cycles.t:51:$output = `ps x | grep $pid | grep processlist | grep -v grep`;
percona-toolkit-3.2.1/t/pt-query-digest/collect_and_report_cycles.t-52-ok(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/continue_on_error.t-19-# Test --continue-on-error.
percona-toolkit-3.2.1/t/pt-query-digest/continue_on_error.t:20:$output = `$trunk/bin/pt-query-digest --no-continue-on-error --type tcpdump $trunk/t/pt-query-digest/samples/bad_tcpdump.txt 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/continue_on_error.t-21-unlike(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/continue_on_error.t-26-
percona-toolkit-3.2.1/t/pt-query-digest/continue_on_error.t:27:$output = `$trunk/bin/pt-query-digest --type tcpdump $trunk/t/pt-query-digest/samples/bad_tcpdump.txt 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/continue_on_error.t-28-like(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-25-my $pid_file = '/tmp/pt-query-digest.test.pid';
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t:26:`rm $pid_file >/dev/null 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-27-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-30-# #########################################################################
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t:31:`touch $pid_file`;
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t:32:$output = `$trunk/bin/pt-query-digest $trunk/commont/t/samples/slow002.txt --pid $pid_file 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-33-like(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-37-);
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t:38:`rm $pid_file >/dev/null 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-39-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-46- my $cmd = "$trunk/bin/pt-query-digest --daemonize --pid $pid_file --processlist h=127.1,P=12345,u=msandbox,p=msandbox --log /dev/null";
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t:47: `$cmd`;
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t:48: $output = `ps xw | grep -v grep | grep '$cmd'`;
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-49- like($output, qr/$cmd/, 'It is running');
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-52- my ($pid) = $output =~ /^\s*(\d+)/;
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t:53: chomp($output = `cat $pid_file`);
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-54- is($output, $pid, 'PID file has correct PID');
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-57- sleep 0.25;
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t:58: $output = `ps xw | grep -v grep | grep '$cmd'`;
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-59- is($output, "", 'It is not running');
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-68-# #############################################################################
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t:69:`rm $pid_file >/dev/null 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/daemon.t-70-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/explain_partitions.t-35-# #############################################################################
percona-toolkit-3.2.1/t/pt-query-digest/explain_partitions.t:36:diag(`/tmp/12345/use < $trunk/t/pt-query-digest/samples/issue_611.sql`);
percona-toolkit-3.2.1/t/pt-query-digest/explain_partitions.t-37-
percona-toolkit-3.2.1/t/pt-query-digest/explain_partitions.t:38:my $output = `$trunk/bin/pt-query-digest $trunk/t/pt-query-digest/samples/slow-issue-611.txt --explain h=127.1,P=12345,u=msandbox,p=msandbox 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/explain_partitions.t-39-like(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/genlog_analyses.t-27-like(
percona-toolkit-3.2.1/t/pt-query-digest/genlog_analyses.t:28: `$trunk/bin/pt-query-digest --type genlog genlog001.txt --help`,
percona-toolkit-3.2.1/t/pt-query-digest/genlog_analyses.t-29- qr/--order-by\s+Query_time:cnt/,
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/group_by_order_by.t-20-# #############################################################################
percona-toolkit-3.2.1/t/pt-query-digest/group_by_order_by.t:21:$output = `$trunk/bin/pt-query-digest --group-by foo,bar --help`;
percona-toolkit-3.2.1/t/pt-query-digest/group_by_order_by.t-22-like($output, qr/--order-by\s+Query_time:sum,Query_time:sum/,
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/group_by_order_by.t-24-
percona-toolkit-3.2.1/t/pt-query-digest/group_by_order_by.t:25:$output = `$trunk/bin/pt-query-digest --no-report --help 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/group_by_order_by.t-26-like(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/issue_1186.t-32-
percona-toolkit-3.2.1/t/pt-query-digest/issue_1186.t:33:my $output = `PTDEBUG=1 $trunk/bin/pt-query-digest --processlist h=127.1,P=12345,u=msandbox,p=msandbox --run-time 2 --port 12345 --interval 0.5 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/issue_1186.t-34-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/issue_1186.t-40-
percona-toolkit-3.2.1/t/pt-query-digest/issue_1186.t:41:$output = `PTDEBUG=1 $trunk/bin/pt-query-digest --processlist h=127.1,P=12345,u=msandbox,p=msandbox --run-time 2 --port 12345 --interval 0.5 --filter '(\$event->{arg} =~ /NEVER HAPPEN/)' 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/issue_1186.t-42-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/issue_232.t-22-my $cmd = "${run_with}slow026.txt";
percona-toolkit-3.2.1/t/pt-query-digest/issue_232.t:23:$output = `PTDEBUG=1 $cmd 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/issue_232.t-24-# Changed qr// from matching db to Schema because attribs are auto-detected.
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/issue_360.t-40-# saving queries to test.query_review.
percona-toolkit-3.2.1/t/pt-query-digest/issue_360.t:41:diag(`$trunk/bin/pt-query-digest --processlist h=127.1,P=12345,u=msandbox,p=msandbox --interval 0.01 --create-review-table --review h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=query_review --daemonize --pid $pid_file --log /dev/null --run-time 2`);
percona-toolkit-3.2.1/t/pt-query-digest/issue_360.t-42-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/issue_514.t-26-local $ENV{PT_QUERY_DIGEST_CHECK_ATTRIB_LIMIT} = 100;
percona-toolkit-3.2.1/t/pt-query-digest/issue_514.t:27:$output = `$cmd 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/issue_514.t-28-unlike(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/issue_565.t-18-# #############################################################################
percona-toolkit-3.2.1/t/pt-query-digest/issue_565.t:19:my $output = `$trunk/bin/pt-query-digest --type tcpdump --filter '\$event->{No_index_used} || \$event->{No_good_index_used}' --group-by tables $trunk/t/lib/samples/tcpdump/tcpdump014.txt 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/issue_565.t-20-unlike(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/issue_687.t-19-my $zcat = `uname` =~ m/Darwin/ ? 'gzcat' : 'zcat';
percona-toolkit-3.2.1/t/pt-query-digest/issue_687.t:20:my $output = `$zcat $trunk/t/lib/samples/slowlogs/slow039.txt.gz | $trunk/bin/pt-query-digest 2>/tmp/mqd-warnings.txt`;
percona-toolkit-3.2.1/t/pt-query-digest/issue_687.t-21-like(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t-32-
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t:33:$output = `$cmd @options --embedded-attributes '-- .*' $sample.slow010.txt`;
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t-34-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t-38-
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t:39:$output = `$cmd @options --embedded-attributes '-- .*,(?{1234})' $sample.slow010.txt`;
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t-40-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t-44-
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t:45:$output = `$cmd @options --embedded-attributes '-- .*,(?*asdasd' $sample.slow010.txt`;
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t-46-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t-50-
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t:51:$output = `$cmd @options --embedded-attributes '-- .*,[:alpha:]' $sample.slow010.txt`;
percona-toolkit-3.2.1/t/pt-query-digest/option_sanity.t-52-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/pt-243.t-22-my $cmd = "${run_with}slow-pt-243.txt";
percona-toolkit-3.2.1/t/pt-query-digest/pt-243.t:23:$output = `$cmd 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/pt-243.t-24-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/rawlog_analyses.t-27-like(
percona-toolkit-3.2.1/t/pt-query-digest/rawlog_analyses.t:28: `$trunk/bin/pt-query-digest --type rawlog rawlog001.txt --help`,
percona-toolkit-3.2.1/t/pt-query-digest/rawlog_analyses.t-29- qr/--order-by\s+Query_time:cnt/,
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/read_timeout.t-36- $start = time;
percona-toolkit-3.2.1/t/pt-query-digest/read_timeout.t:37: `$trunk/bin/pt-query-digest --read-timeout 2 --pid $pid_file 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-query-digest/read_timeout.t-38- return;
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/read_timeout.t-57-mkfifo $fifo, 0700;
percona-toolkit-3.2.1/t/pt-query-digest/read_timeout.t:58:system("$trunk/t/pt-query-digest/samples/write-to-fifo.pl $fifo 4 &");
percona-toolkit-3.2.1/t/pt-query-digest/read_timeout.t-59-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/read_timeout.t-62- $start = time;
percona-toolkit-3.2.1/t/pt-query-digest/read_timeout.t:63: `$trunk/bin/pt-query-digest --read-timeout 2 --pid $pid_file $fifo`;
percona-toolkit-3.2.1/t/pt-query-digest/read_timeout.t-64- return;
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/resume.t-24-my $resume_file = (tempfile())[1];
percona-toolkit-3.2.1/t/pt-query-digest/resume.t:25:diag(`echo 0 > $resume_file`);
percona-toolkit-3.2.1/t/pt-query-digest/resume.t-26-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/resume.t-112-close $fh;
percona-toolkit-3.2.1/t/pt-query-digest/resume.t:113:diag(`echo 0 > $resume_file`);
percona-toolkit-3.2.1/t/pt-query-digest/resume.t-114-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/run_time.t-34-# #############################################################################
percona-toolkit-3.2.1/t/pt-query-digest/run_time.t:35:`$trunk/bin/pt-query-digest --processlist h=127.1,P=12345,u=msandbox,p=msandbox --run-time 3 --port 12345 --log /tmp/mk-query-digest.log --pid /tmp/mk-query-digest.pid --daemonize 1>/dev/null 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-query-digest/run_time.t-36-chomp(my $pid = `cat /tmp/mk-query-digest.pid`);
percona-toolkit-3.2.1/t/pt-query-digest/run_time.t-37-sleep 2;
percona-toolkit-3.2.1/t/pt-query-digest/run_time.t:38:my $output = `ps x | grep $pid | grep processlist | grep -v grep`;
percona-toolkit-3.2.1/t/pt-query-digest/run_time.t-39-ok(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/run_time.t-44-sleep 1.5;
percona-toolkit-3.2.1/t/pt-query-digest/run_time.t:45:$output = `ps x | grep $pid | grep processlist | grep -v grep`;
percona-toolkit-3.2.1/t/pt-query-digest/run_time.t-46-is(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/slowlog_analyses.t-299-# #############################################################################
percona-toolkit-3.2.1/t/pt-query-digest/slowlog_analyses.t:300:my $output = `$trunk/bin/pt-query-digest $sample/slow041.txt >/dev/null 2>/tmp/mqd-warnings.txt`;
percona-toolkit-3.2.1/t/pt-query-digest/slowlog_analyses.t-301-is(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/standard_options.t-36-# and other times it won't.
percona-toolkit-3.2.1/t/pt-query-digest/standard_options.t:37:$output = `$trunk/bin/pt-query-digest --processlist 127.1,P=12345,u=msandbox,p=msandbox --run-time 1 --port 12345`;
percona-toolkit-3.2.1/t/pt-query-digest/standard_options.t-38-like(
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-36-
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:37:$output = `PTDEBUG=1 $cmd --version-check 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-38-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-59-
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:60:my $orig_vc_file = `cat $vc_file 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-61-
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:62:$output = `PTDEBUG=1 $cmd --version-check 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-63-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-69-
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:70:my $new_vc_file = `cat $vc_file 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-71-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-85-
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:86:$output = `PTDEBUG=1 PERCONA_VERSION_CHECK_URL='http://x.percona.com' $cmd --version-check 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-87-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-112-
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:113:$output = `PTDEBUG=1 $cmd --no-version-check 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-114-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-123- "... version check file was not created"
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:124:) or diag(`cat $vc_file`);
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-125-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-128-
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:129:$output = `PTDEBUG=1 $cmd 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-130-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-145- "... version check file was not created"
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:146:) or diag($output, `cat $vc_file`);
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-147-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-155-
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:156:diag(`cp $trunk/bin/pt-query-digest /tmp/pt-query-digest.$PID`);
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-157-
##############################################
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-159-# it should be enabled by default.
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t:160:$output = `PTDEBUG=1 /tmp/pt-query-digest.$PID --limit 1 $trunk/t/lib/samples/slowlogs/slow001.txt 2>&1`;
percona-toolkit-3.2.1/t/pt-query-digest/version_check.t-161-
##############################################
percona-toolkit-3.2.1/t/pt-show-grants/standard_options.t-22-`touch /tmp/mk-script.pid`;
percona-toolkit-3.2.1/t/pt-show-grants/standard_options.t:23:$output = `$trunk/bin/pt-show-grants -F /tmp/12345/my.sandbox.cnf --drop --pid /tmp/mk-script.pid 2>&1`;
percona-toolkit-3.2.1/t/pt-show-grants/standard_options.t-24-like(
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t-45-# 1
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t:46:$output = `$cmd --help`;
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t-47-like($output, qr/Prompt for a password/, 'It compiles');
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t-51-# #############################################################################
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t:52:$output = `$trunk/bin/pt-slave-delay --run-time 1s --delay 1s --interval 1s S=/tmp/12346/mysql_sandbox12346.sock 2>&1`;
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t-53-unlike($output, qr/Missing DSN part 'h'/, 'Does not require h DSN part');
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t-71-# 3
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t:72:$output = `$trunk/bin/pt-slave-delay --delay 1s h=127.1,P=12346,u=msandbox,p=msandbox h=127.1 2>&1`;
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t-73-like(
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t-92-# #############################################################################
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t:93:$output = `$trunk/bin/pt-slave-delay --run-time 1s --interval 1s --use-master --host 127.1 --port 12346 -u msandbox -p msandbox`;
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t-94-sleep 1;
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t-100-
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t:101:$output = `$trunk/bin/pt-slave-delay --run-time 1s --interval 1s --use-master --host 127.1 --port 12345 -u msandbox -p msandbox 2>&1`;
percona-toolkit-3.2.1/t/pt-slave-delay/basics.t-102-like(
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-42-# we kill the process, which we don't want either.
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t:43:system("$cmd --delay 1m --interval 1s --run-time 5s --daemonize --pid $pid_file >/dev/null 2>&1");
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-44-PerconaTest::wait_for_files($pid_file);
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t:45:chomp(my $pid = `cat $pid_file`);
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t:46:$output = `ps x | grep "^[ ]*$pid"`;
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-47-like($output, qr/$cmd/, 'It lives daemonized');
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-49-# Kill it
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t:50:diag(`kill $pid`);
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-51-wait_until(sub{!kill 0, $pid});
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-56-# #############################################################################
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t:57:$output = `$trunk/bin/pt-slave-delay --run-time 1s --interval 1s --host 127.1 --port 12346 -u msandbox -p msandbox`;
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-58-sleep 1;
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-65-# And check issue 248: that the slave host will inhert from --port, etc.
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t:66:$output = `$trunk/bin/pt-slave-delay --run-time 1s --interval 1s 127.1 --port 12346 -u msandbox -p msandbox`;
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-67-sleep 1;
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-76-# #############################################################################
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t:77:`$cmd --run-time 1s --interval 1s --log /tmp/mk-slave-delay.log --daemonize`;
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-78-sleep 2;
##############################################
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-90-`touch /tmp/mk-script.pid`;
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t:91:$output = `$cmd --run-time 1s --interval 1s --use-master --pid /tmp/mk-script.pid 2>&1`;
percona-toolkit-3.2.1/t/pt-slave-delay/standard_options.t-92-like(
##############################################
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-50-
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t:51:my $output = `$trunk/bin/pt-slave-find --help`;
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-52-like($output, qr/Prompt for a password/, 'It compiles');
##############################################
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-61-
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t:62:$output = `$trunk/bin/pt-slave-find -h 127.0.0.1 -P 12345 -u msandbox -p msandbox --report-format hostname`;
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-63-my $expected = <<EOF;
##############################################
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-73-###############################################################################
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t:74:$output = `$trunk/bin/pt-slave-find -h 127.0.0.1 -P 12345 -u msandbox -p msandbox --report-format hostname --resolve-address`;
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-75-like (
##############################################
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-98-`touch /tmp/mk-script.pid`;
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t:99:$output = `$trunk/bin/pt-slave-find -h 127.0.0.1 -P 12345 -u msandbox -p msandbox --pid /tmp/mk-script.pid 2>&1`;
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-100-like(
##############################################
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-111-my $outfile = "/tmp/mk-slave-find-output.txt";
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t:112:#diag(`rm -rf $outfile >/dev/null`);
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t:113:diag(`rm -rf $outfile`);
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-114-
##############################################
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-165-# #############################################################################
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t:166:diag(`rm -rf $outfile >/dev/null`);
percona-toolkit-3.2.1/t/pt-slave-find/pt-slave-find.t-167-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t-22-diag('Restarting the sandbox');
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t:23:diag(`SAKILA=0 GTID=1 $trunk/sandbox/test-env restart`);
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t-24-diag("Sandbox restarted");
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t-57- return 1 if !is_running();
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t:58: diag(`$trunk/bin/pt-slave-restart --stop -q >/dev/null 2>&1 &`);
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t-59- wait_until(sub { !-f $pid_file }, 0.3, 2);
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t-64-sub is_running {
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t:65: chomp(my $running = `ps -eaf | grep -v grep | grep '$cmd'`);
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t-66- if (!-f $pid_file && !$running) {
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t-68- } elsif (-f $pid_file && !$running) {
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t:69: diag(`rm -f $pid_file`);
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t-70- return 0;
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t-201-# #############################################################################
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t:202:diag(`rm -f $pid_file $log_file >/dev/null`);
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t:203:diag(`$trunk/sandbox/test-env restart`);
percona-toolkit-3.2.1/t/pt-slave-restart/gtid.t-204-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t-24-
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t:25:diag(`$trunk/sandbox/test-env stop >/dev/null`);
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t:26:diag(`REPLICATION_THREADS=2 GTID=ON_PERMISSIVE $trunk/sandbox/test-env start >/dev/null`);
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t-27-
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t-47-# Start an instance
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t:48:my $output=`$trunk/bin/pt-slave-restart --run-time=1s -h 127.0.0.1 -P 12346 -u msandbox -p msandbox 2>&1`;
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t-49-
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t-60-
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t:61:diag(`$trunk/sandbox/test-env stop >/dev/null`);
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t:62:diag(`$trunk/sandbox/test-env start >/dev/null`);
percona-toolkit-3.2.1/t/pt-slave-restart/gtid_parallelreplication.t-63-#
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-48-# Start an instance
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t:49:diag(`$trunk/bin/pt-slave-restart --max-sleep 0.25 -h 127.0.0.1 -P 12346 -u msandbox -p msandbox --daemonize --pid /tmp/pt-slave-restart.pid --log /tmp/pt-slave-restart.log`);
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-50-my $output = `ps x | grep 'pt-slave-restart \-\-max\-sleep ' | grep -v grep | grep -v pt-slave-restart.t`;
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-61-
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t:62:diag(`$trunk/bin/pt-slave-restart --stop -q`);
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-63-sleep 1;
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-72-# #############################################################################
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t:73:$output = `$trunk/bin/pt-slave-restart --stop --sentinel /tmp/pt-slave-restartup --error-numbers=1205,1317`;
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-74-like($output, qr{Successfully created file /tmp/pt-slave-restartup}, '--error-numbers works (issue 118)');
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-95-# Start an instance
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t:96:$output = `$trunk/bin/pt-slave-restart --max-sleep 0.25 -h 127.0.0.1 -P 12346 -u msandbox -p msandbox --error-text "doesn't exist" --run-time 1s 2>&1`;
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-97-unlike(
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-106-`touch /tmp/pt-script.pid`;
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t:107:$output = `$trunk/bin/pt-slave-restart --max-sleep 0.25 -h 127.0.0.1 -P 12346 -u msandbox -p msandbox --pid /tmp/pt-script.pid 2>&1`;
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-108-like(
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-117-# #############################################################################
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t:118:my $ret = system("$trunk/bin/pt-slave-restart -h 127.0.0.1 -P 12346 -u msandbox -p msandbox --monitor --stop --max-sleep 1 --run-time 1 >/dev/null 2>&1");
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-119-is(
##############################################
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-127-# #############################################################################
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t:128:$output = `$trunk/bin/pt-slave-restart --monitor --error-numbers 1205,1317 --quiet -F /tmp/12346/my.sandbox.cnf --run-time 1 2>&1`;
percona-toolkit-3.2.1/t/pt-slave-restart/pt-slave-restart.t-129-is(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/option_sanity.t-15-
percona-toolkit-3.2.1/t/pt-stalk/option_sanity.t:16:my $output = `$trunk/bin/pt-stalk --help`;
percona-toolkit-3.2.1/t/pt-stalk/option_sanity.t-17-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/plugin.t-34-
percona-toolkit-3.2.1/t/pt-stalk/plugin.t:35:diag(`rm $pid_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/plugin.t:36:diag(`rm $log_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/plugin.t:37:diag(`mkdir $dest`);
percona-toolkit-3.2.1/t/pt-stalk/plugin.t-38-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/plugin.t-43-
percona-toolkit-3.2.1/t/pt-stalk/plugin.t:44:$retval = system("$trunk/bin/pt-stalk --iterations 1 --dest $dest --variable Uptime --threshold $threshold --cycles 1 --run-time 2 --pid $pid_file --plugin $trunk/t/pt-stalk/samples/plugin001.sh -- --defaults-file=$cnf >$log_file 2>&1");
percona-toolkit-3.2.1/t/pt-stalk/plugin.t-45-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/plugin.t-69-# #############################################################################
percona-toolkit-3.2.1/t/pt-stalk/plugin.t:70:diag(`rm $pid_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/plugin.t:71:diag(`rm $log_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/plugin.t:72:diag(`rm -rf $dest 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/plugin.t-73-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-35-sub cleanup {
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:36: diag(`rm $pid_file $log_file $int_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:37: diag(`rm -rf $dest 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-38-}
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-44- return 0 unless -f "$dest/after_interval_sleep";
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:45: my $n_cycles = `wc -l "$dest/after_interval_sleep" | awk '{print \$1}'`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-46- $n_cycles ||= '';
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-58-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:59:my $retval = system("$trunk/bin/pt-stalk -- --no-defaults --protocol socket --socket /dev/null >$log_file 2>&1");
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:60:my $output = `cat $log_file`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-61-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-82-# has completed a cycle.
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:83:$retval = system("$trunk/bin/pt-stalk --daemonize --pid $pid_file --log $log_file --dest $dest --plugin $trunk/t/pt-stalk/samples/plugin002.sh -- --defaults-file=$cnf");
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-84-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-108-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:109:chomp($pid = `cat $pid_file 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:110:$retval = system("kill -0 $pid");
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-111-is(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-119-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:120:$output = `cat $log_file 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-121-unlike(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-124- "Non-matching results not logged because --verbose=2"
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:125:) or diag(`cat $log_file 2>/dev/null`, `cat $dest/*-output 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-126-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-133-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:134:$output = `cat $log_file 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-135-like(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-138- "Caught signal logged"
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:139:) or diag(`cat $log_file 2>/dev/null`, `cat $dest/*-output 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-140-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-146-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:147:$retval = system("$trunk/bin/pt-stalk --daemonize --pid $pid_file --log $log_file --variable Threads_running --dest $dest --verbose 3 -- --defaults-file=$cnf");
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-148-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-152-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:153:$output = `cat $log_file 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-154-like(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-157- "Matching results logged with --verbose 3"
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:158:) or diag(`cat $dest/*-output 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-159-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-165-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:166:$retval = system("$trunk/bin/pt-stalk --daemonize --pid $pid_file --log $log_file --dest $dest --verbose 1 --plugin $trunk/t/pt-stalk/samples/plugin002.sh -- --defaults-file=$cnf");
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-167-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-171-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:172:$output = `cat $log_file 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-173-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-196-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:197:$retval = system("$trunk/bin/pt-stalk --iterations 1 --dest $dest --variable Uptime --threshold $threshold --cycles 2 --run-time 2 --pid $pid_file -- --defaults-file=$cnf >$log_file 2>&1");
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-198-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-200-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:201:$output = `cat $dest/*-trigger 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-202-like(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-208- 'output', $output,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:209: 'log file', `cat $log_file 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:210: 'collector', `cat $dest/*-output 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:211: 'dest', `ls -l $dest/ 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:212: 'df', `cat $dest/*-df 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-213-);
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-216-# the samples may not be precisely 1 second apart.
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:217:chomp($output = `cat $dest/*-df 2>/dev/null | grep -c '^TS'`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-218-ok(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-223- 'output', $output,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:224: 'log file', `cat $log_file 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:225: 'collector', `cat $dest/*-output 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:226: 'dest', `ls -l $dest/ 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:227: 'df', `cat $dest/*-df 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-228-);
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-234-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:235:$output = `cat $dest/*-trigger 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-236-like(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-241-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:242:chomp($output = `cat $log_file 2>/dev/null | grep 'Collect [0-9] PID'`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-243-like(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-249- 'output', $output,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:250: 'log file', `cat $log_file 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:251: 'collector', `cat $dest/*-output 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-252-);
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-262-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:263:$retval = system("$trunk/bin/pt-stalk --no-collect --iterations 1 --dest $dest --variable Uptime --threshold $threshold --cycles 1 --run-time 1 --pid $pid_file -- --defaults-file=$cnf >$log_file 2>&1");
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-264-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-266-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:267:$output = `cat $log_file 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-268-like(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-276- "No files collected"
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:277:) or diag(`ls -l $dest/ 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-278-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-289-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:290:diag(`cp $ENV{HOME}/.pt-stalk.conf $ENV{HOME}/.pt-stalk.conf.original 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:291:diag(`cp $trunk/t/pt-stalk/samples/config001.conf $ENV{HOME}/.pt-stalk.conf`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-292-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-295-sleep 1;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:296:chomp($pid = `cat $pid_file`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:297:$retval = system("kill $pid 2>/dev/null");
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-298-is(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-303-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:304:$output = `cat $log_file 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-305-like(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-310-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:311:diag(`rm $ENV{HOME}/.pt-stalk.conf`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:312:diag(`cp $ENV{HOME}/.pt-stalk.conf.original $ENV{HOME}/.pt-stalk.conf 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-313-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-323-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:324:$retval = system("$trunk/bin/pt-stalk --no-stalk --run-time 2 --dest $dest --prefix nostalk --pid $pid_file --iterations 1 -- --defaults-file=$cnf >$log_file 2>&1");
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-325-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-327-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:328:$output = `cat $dest/nostalk-trigger 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-329-like(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-334-or diag(
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:335: 'dest', `ls -l $dest/ 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:336: 'log_file', `cat $log_file 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:337: 'collector', `cat $dest/*-output 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-338-);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-339-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:340:chomp($output = `grep -c '^TS' $dest/nostalk-df 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-341-is(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-346-or diag(
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:347: 'dest', `ls -l $dest/ 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:348: 'log_file', `cat $log_file 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:349: 'collector', `cat $dest/*-output 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-350-);
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-354- skip "vmstat is not installed", 1 unless $vmstat;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:355: chomp(my $n=`awk '/[ ]*[0-9]/ { n += 1 } END { print n }' "$dest/nostalk-vmstat"`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-356- is(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-363-is(
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:364: `cat $dest/nostalk-hostname 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-365- `hostname`,
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-368-or diag(
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:369: 'dest', `ls -l $dest/ 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:370: 'log_file', `cat $log_file 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:371: 'collector', `cat $dest/*-output 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-372-);
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-378-or diag(
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:379: 'dest', `ls -l $dest/ 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:380: 'log_file', `cat $log_file 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:381: 'collector', `cat $dest/*-output 2>/dev/null`,
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-382-);
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-397-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:398:$output = `$script`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-399-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-412-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:413:system("$trunk/bin/pt-stalk --daemonize --variable=PI --dest $dest --no-collect --log $log_file --iterations=1 --run-time=2 --cycles=2 --sleep=1 --function $trunk/t/pt-stalk/samples/plugin003.sh --threshold 3.1415 --pid $pid_file --defaults-file=$cnf >$log_file 2>&1");
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-414-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-418-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:419:$output = `cat $log_file 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-420-like(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-450- . "--run-time=2 --pid $pid_file --defaults-file=$cnf >$log_file 2>&1";
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:451: system($cmd);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-452- sleep 15;
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-454-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:455: $output = `cat $dest/*-ps-locks-transactions 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-456-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-498- diag ($cmd);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:499: system($cmd);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-500- sleep 5;
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-502-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:503: $output = `cat $dest/*-slave-status 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-504-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-519- . "--run-time=2 --pid $pid_file --defaults-file=$cnf >$log_file 2>&1";
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:520: system($cmd);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-521- sleep 5;
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-523-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:524: $output = `cat $dest/*-slave-status 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-525-
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-559-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:560: system($cmd);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-561- sleep 15;
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-563-
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:564: $output = `cat $dest/*-prepared-statements 2>/dev/null`;
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-565- like(
##############################################
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-583-cleanup();
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t:584:diag(`rm -rf $dest 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-stalk/pt-stalk.t-585-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-summary/pt-summary.t-21- no_diff(
percona-toolkit-3.2.1/t/pt-summary/pt-summary.t:22: sub { print `$trunk/bin/pt-summary --read-samples "$trunk/t/pt-summary/samples/Linux/00$i/" | tail -n+3` },
percona-toolkit-3.2.1/t/pt-summary/pt-summary.t-23- "t/pt-summary/samples/Linux/output_00$i.txt"),
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t-118- sub {
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t:119: print `$trunk/bin/pt-table-checksum $master_dsn -t sakila.country 2>&1`;
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t-120- }
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t-268- local $ENV{BINLOG_FORMAT} = 'ROW';
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t:269: diag(`$trunk/sandbox/start-sandbox slave 12348 12345`);
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t-270- local $ENV{BINLOG_FORMAT} = 'MIXED';
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t:271: diag(`$trunk/sandbox/start-sandbox slave 12349 12348`);
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t-272-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t-287-
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t:288: diag(`$trunk/sandbox/stop-sandbox 12349 12348`);
percona-toolkit-3.2.1/t/pt-table-checksum/bugs.t-289-}
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/error_handling.t-119-my ($id) = $master_dbh->selectrow_array('select connection_id()');
percona-toolkit-3.2.1/t/pt-table-checksum/error_handling.t:120:system("sleep 4 ; /tmp/12345/use -e 'KILL $id' >/dev/null");
percona-toolkit-3.2.1/t/pt-table-checksum/error_handling.t-121-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/error_handling.t-205-# Create a user that can't create the --replicate table.
percona-toolkit-3.2.1/t/pt-table-checksum/error_handling.t:206:diag(`/tmp/12345/use -uroot -pmsandbox < $trunk/t/lib/samples/ro-checksum-user.sql 2>&1`);
percona-toolkit-3.2.1/t/pt-table-checksum/error_handling.t-207-diag(`/tmp/12345/use -uroot -pmsandbox -e "GRANT REPLICATION CLIENT, REPLICATION SLAVE ON *.* TO ro_checksum_user\@'%'" 2>&1`);
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-27-# ############################################################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t:28:$output = `$trunk/bin/pt-table-checksum h=127.1 --help`;
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-29-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-110-# ############################################################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t:111:$output = `$trunk/bin/pt-table-checksum h=127.1 --help --explain`;
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-112-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-117-
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t:118:$output = `$trunk/bin/pt-table-checksum h=127.1 --help --resume`;
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-119-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-124-
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t:125:$output = `$trunk/bin/pt-table-checksum h=127.1 --help --quiet`;
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-126-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-131-
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t:132:$output = `$trunk/bin/pt-table-checksum --help --chunk-size 500`;
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-133-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-141-# ############################################################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t:142:$output = `$trunk/bin/pt-table-checksum h=127.1 h=host1 h=host2`;
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-143-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-151-# ############################################################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t:152:$output = `$trunk/bin/pt-table-checksum h=127.1 --replicate checksums`;
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-153-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-161-# ############################################################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t:162:$output = `$trunk/bin/pt-table-checksum --chunk-size-limit 0.999`;
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-163-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-172-
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t:173:$output = `$trunk/bin/pt-table-checksum h=127.1,P=12345 --max-load 100`;
percona-toolkit-3.2.1/t/pt-table-checksum/option_sanity.t-174-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/privs.t-57-$master_dbh->do("DROP DATABASE IF EXISTS percona");
percona-toolkit-3.2.1/t/pt-table-checksum/privs.t:58:diag(`/tmp/12345/use -u root < $trunk/t/lib/samples/ro-checksum-user.sql 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/privs.t-59-PerconaTest::wait_for_table($slave2_dbh, "mysql.user", "user='ro_checksum_user'");
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/privs.t-106-
percona-toolkit-3.2.1/t/pt-table-checksum/privs.t:107:diag(`/tmp/12345/use -u root < $trunk/t/lib/samples/ro-checksum-user.sql 2>/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/privs.t-108-PerconaTest::wait_for_table($slave1_dbh, "mysql.tables_priv", "user='ro_checksum_user'");
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/privs.t-170-# #############################################################################
percona-toolkit-3.2.1/t/pt-table-checksum/privs.t:171:diag(`/tmp/12345/use -u root < $trunk/t/pt-table-checksum/samples/privs-bug-916168.sql`);
percona-toolkit-3.2.1/t/pt-table-checksum/privs.t-172-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/progress.t-74-
percona-toolkit-3.2.1/t/pt-table-checksum/progress.t:75:system("$trunk/util/wait-to-exec '$scripts/wait-for-chunk.sh 12345 sakila city 1' '$scripts/exec-wait-exec.sh 12347 \"stop slave\" 5 \"start slave\"' 12 >/dev/null &");
percona-toolkit-3.2.1/t/pt-table-checksum/progress.t-76-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/pt-131.t-48-
percona-toolkit-3.2.1/t/pt-table-checksum/pt-131.t:49:$output = `$cmd`;
percona-toolkit-3.2.1/t/pt-table-checksum/pt-131.t-50-like (
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1616.t-34-diag("Loading $num_rows rows into the table. This might take some time.");
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1616.t:35:# diag(`util/mysql_random_data_load --host=127.0.0.1 --port=12345 --user=msandbox --password=msandbox junk pt_test_100 $num_rows`);
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1616.t-36-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1728.t-38-$dbh->do("CREATE DATABASE IF NOT EXISTS test");
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1728.t:39:$dbh->do("CREATE TABLE `test`.`$table` (id INT PRIMARY KEY AUTO_INCREMENT, name VARCHAR(5)) Engine=InnoDB");
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1728.t-40-
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1728.t:41:diag(`util/mysql_random_data_load --host=127.0.0.1 --port=12345 --user=msandbox --password=msandbox test $table $num_rows`);
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1728.t-42-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1766.t-39-$dbh->do("CREATE DATABASE IF NOT EXISTS test");
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1766.t:40:$dbh->do("CREATE TABLE `test`.`$table` (id INT PRIMARY KEY AUTO_INCREMENT, name VARCHAR(5)) Engine=InnoDB");
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1766.t-41-
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1766.t:42:diag(`util/mysql_random_data_load --host=127.0.0.1 --port=12345 --user=msandbox --password=msandbox test $table $num_rows`);
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1766.t:43:$slave1_dbh->do("DELETE FROM `test`.`$table` WHERE 1=1");
percona-toolkit-3.2.1/t/pt-table-checksum/pt-1766.t-44-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t-76-for my $port ( qw(12346 12347) ) {
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t:77: diag(`cp /tmp/$port/my.sandbox.cnf /tmp/$port/orig.cnf`);
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t:78: diag(`echo "replicate-ignore-db=foo" >> /tmp/$port/my.sandbox.cnf`);
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t:79: diag(`/tmp/$port/start >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t-80-}
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t-133-for my $port ( qw(12346 12347) ) {
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t:134: diag(`mv /tmp/$port/orig.cnf /tmp/$port/my.sandbox.cnf`);
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t:135: diag(`/tmp/$port/start >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t-136-}
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t-284-
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t:285:$output = `$mysqlbinlog /tmp/12345/data/$row->{file} --start-position=$row->{position} | grep 'use ' | grep -v '^# Warning' | sort -u | sed -e 's/\`//g'`;
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t-286-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t-303-
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t:304:$output = `$mysqlbinlog /tmp/12345/data/$row->{file} --start-position=$row->{position} | grep 'use ' | grep -v '^# Warning' | sort -u | sed -e 's/\`//g'`;
percona-toolkit-3.2.1/t/pt-table-checksum/replication_filters.t-305-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/scripts/wait-for-chunk.sh-7-
percona-toolkit-3.2.1/t/pt-table-checksum/scripts/wait-for-chunk.sh:8:/tmp/$port/use -e "select 1 from percona.checksums where db='$db' and tbl='$tbl' and chunk=$chunk" 2>/dev/null | grep -q 1 2>/dev/null
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/settings.t-21-
percona-toolkit-3.2.1/t/pt-table-checksum/settings.t:22:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/settings.t:23:diag(`EXTRA_DEFAULTS_FILE="$trunk/t/pt-table-checksum/samples/explicit_defaults_for_timestamp.cnf" $trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/settings.t-24-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/settings.t-54-# #############################################################################
percona-toolkit-3.2.1/t/pt-table-checksum/settings.t:55:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/settings.t-56-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/skip_innodb.t-22-diag("Stopping/reconfiguring/restarting sandboxes 12348 and 12349");
percona-toolkit-3.2.1/t/pt-table-checksum/skip_innodb.t:23:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/skip_innodb.t:24:diag(`SKIP_INNODB=1 $trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/skip_innodb.t-25-
percona-toolkit-3.2.1/t/pt-table-checksum/skip_innodb.t:26:diag(`$trunk/sandbox/stop-sandbox 12349 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/skip_innodb.t:27:diag(`SKIP_INNODB=1 $trunk/sandbox/start-sandbox slave 12349 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/skip_innodb.t-28-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/skip_innodb.t-68-# #############################################################################
percona-toolkit-3.2.1/t/pt-table-checksum/skip_innodb.t:69:diag(`$trunk/sandbox/stop-sandbox 12349 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-checksum/skip_innodb.t-70-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/standard_options.t-112-# #########################################################################
percona-toolkit-3.2.1/t/pt-table-checksum/standard_options.t:113:diag(`rm -rf $pid_file >/dev/null 2>&1`);
percona-toolkit-3.2.1/t/pt-table-checksum/standard_options.t:114:diag(`touch $pid_file`);
percona-toolkit-3.2.1/t/pt-table-checksum/standard_options.t-115-
##############################################
percona-toolkit-3.2.1/t/pt-table-checksum/standard_options.t-131-
percona-toolkit-3.2.1/t/pt-table-checksum/standard_options.t:132:diag(`rm -rf $pid_file >/dev/null 2>&1`);
percona-toolkit-3.2.1/t/pt-table-checksum/standard_options.t-133-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/basics.t-63- my $cmd = "$trunk/bin/pt-table-sync --print --execute h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=$src h=127.1,P=12346,D=test,t=$dst $other 2>&1";
percona-toolkit-3.2.1/t/pt-table-sync/basics.t:64: chomp($output=`$cmd`);
percona-toolkit-3.2.1/t/pt-table-sync/basics.t-65- return $output;
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/basics.t-194-# so no need to call $sb->wait_for_slaves() after this.
percona-toolkit-3.2.1/t/pt-table-sync/basics.t:195:`$trunk/bin/pt-table-checksum h=127.1,P=12345,u=msandbox,p=msandbox --max-load '' --set-vars innodb_lock_wait_timeout=3 --chunk-size 50 --chunk-index idx_actor_last_name -t sakila.actor --quiet`;
percona-toolkit-3.2.1/t/pt-table-sync/basics.t-196-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/basics.t-214-
percona-toolkit-3.2.1/t/pt-table-sync/basics.t:215:$output = `$trunk/bin/pt-table-checksum h=127.1,P=12345,u=msandbox,p=msandbox --max-load '' --set-vars innodb_lock_wait_timeout=3 --chunk-size 50 --chunk-index idx_actor_last_name -t sakila.actor`;
percona-toolkit-3.2.1/t/pt-table-sync/basics.t-216-is(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/basics.t-227-# so no need to call $sb->wait_for_slaves() after this.
percona-toolkit-3.2.1/t/pt-table-sync/basics.t:228:`$trunk/bin/pt-table-checksum h=127.1,P=12345,u=msandbox,p=msandbox --max-load '' --set-vars innodb_lock_wait_timeout=3 --chunk-size 2 -t test.t --quiet`;
percona-toolkit-3.2.1/t/pt-table-sync/basics.t-229-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/bidirectional.t-26-
percona-toolkit-3.2.1/t/pt-table-sync/bidirectional.t:27:diag(`$trunk/sandbox/start-sandbox master 2900 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/bidirectional.t-28-my $r1_dbh = $sb->get_dbh_for('master3');
percona-toolkit-3.2.1/t/pt-table-sync/bidirectional.t-29-
percona-toolkit-3.2.1/t/pt-table-sync/bidirectional.t:30:diag(`$trunk/sandbox/start-sandbox master 2901 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/bidirectional.t-31-my $r2_dbh = $sb->get_dbh_for('master4');
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/bidirectional.t-535-# #############################################################################
percona-toolkit-3.2.1/t/pt-table-sync/bidirectional.t:536:diag(`$trunk/sandbox/stop-sandbox 2901 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/bidirectional.t:537:diag(`$trunk/sandbox/stop-sandbox 2900 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/bidirectional.t-538-$sb->wipe_clean($c1_dbh);
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/bugs.t-48-
percona-toolkit-3.2.1/t/pt-table-sync/bugs.t:49:$output = `$trunk/bin/pt-table-checksum $master_dsn --set-vars innodb_lock_wait_timeout=3 --max-load '' -d test --chunk-size 10 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/bugs.t-50-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/bugs.t-114-
percona-toolkit-3.2.1/t/pt-table-sync/bugs.t:115:$output = `$trunk/bin/pt-table-checksum $master_dsn --set-vars innodb_lock_wait_timeout=3 --max-load '' -d test --chunk-size 10 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/bugs.t-116-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/columns.t-41-$sb->load_file('master', 't/pt-table-sync/samples/before.sql');
percona-toolkit-3.2.1/t/pt-table-sync/columns.t:42:$output = `$trunk/bin/pt-table-sync --print h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=test3 t=test4`;
percona-toolkit-3.2.1/t/pt-table-sync/columns.t-43-$output = remove_traces($output);
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/columns.t-50-
percona-toolkit-3.2.1/t/pt-table-sync/columns.t:51:$output = `$trunk/bin/pt-table-sync --columns=id --print h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=test3 t=test4`;
percona-toolkit-3.2.1/t/pt-table-sync/columns.t-52-is($output, "", '--columns id: found no differences');
percona-toolkit-3.2.1/t/pt-table-sync/columns.t-53-
percona-toolkit-3.2.1/t/pt-table-sync/columns.t:54:$output = `$trunk/bin/pt-table-sync --ignore-columns name --print h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=test3 t=test4`;
percona-toolkit-3.2.1/t/pt-table-sync/columns.t-55-is($output, "", '--ignore-columns name: found no differences');
percona-toolkit-3.2.1/t/pt-table-sync/columns.t-56-
percona-toolkit-3.2.1/t/pt-table-sync/columns.t:57:$output = `$trunk/bin/pt-table-sync --ignore-columns id --print h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=test3 t=test4`;
percona-toolkit-3.2.1/t/pt-table-sync/columns.t-58-$output = remove_traces($output);
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/columns.t-65-
percona-toolkit-3.2.1/t/pt-table-sync/columns.t:66:$output = `$trunk/bin/pt-table-sync --columns name --print h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=test3 t=test4`;
percona-toolkit-3.2.1/t/pt-table-sync/columns.t-67-$output = remove_traces($output);
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/enum_fields.t-40-$master_dbh->do(q/INSERT INTO enum_fields_db.rgb (name, hex_code) VALUES ('blue','0x0000FF')/);
percona-toolkit-3.2.1/t/pt-table-sync/enum_fields.t:41:$output = `$trunk/bin/pt-table-sync --sync-to-master h=127.1,P=12346,u=msandbox,p=msandbox -d enum_fields_db --print`;
percona-toolkit-3.2.1/t/pt-table-sync/enum_fields.t-42-$output = remove_traces($output);
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/filters.t-112-$sb->wait_for_slaves();
percona-toolkit-3.2.1/t/pt-table-sync/filters.t:113:diag(`$trunk/bin/pt-table-checksum $master_dsn -d d1,d2,d3 --chunk-size 100 --quiet --set-vars innodb_lock_wait_timeout=3 --max-load ''`);
percona-toolkit-3.2.1/t/pt-table-sync/filters.t-114-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/filters.t-182-# Create the checksums.
percona-toolkit-3.2.1/t/pt-table-sync/filters.t:183:diag(`$trunk/bin/pt-table-checksum h=127.1,P=12345,u=msandbox,p=msandbox -d test --quiet --quiet --set-vars innodb_lock_wait_timeout=3 --max-load ''`);
percona-toolkit-3.2.1/t/pt-table-sync/filters.t-184-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/float_precision.t-46-# get a REPLACE without using --float-precision.
percona-toolkit-3.2.1/t/pt-table-sync/float_precision.t:47:$output = `$trunk/bin/pt-table-sync --sync-to-master h=127.1,P=12346,u=msandbox,p=msandbox,D=test,t=fl --print 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/float_precision.t-48-$output = remove_traces($output);
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/float_precision.t-58-# vs. 2.0000013, so if we round at 6 places, they should be the same.
percona-toolkit-3.2.1/t/pt-table-sync/float_precision.t:59:$output = `$trunk/bin/pt-table-sync --sync-to-master h=127.1,P=12346,u=msandbox,p=msandbox,D=test,t=fl --print --float-precision 6 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/float_precision.t-60-is(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/force_index.t-44-
percona-toolkit-3.2.1/t/pt-table-sync/force_index.t:45:$output = `PTDEBUG=1 $trunk/bin/pt-table-sync h=127.0.0.1,P=12345,u=msandbox,p=msandbox P=12346 -d test -t issue_37 --algorithms Chunk --chunk-size 3 --no-check-slave --no-check-triggers --print 2>&1 | grep 'src: '`;
percona-toolkit-3.2.1/t/pt-table-sync/force_index.t-46-like($output, qr/FROM `test`\.`issue_37` FORCE INDEX \(`idx_a`\) WHERE/, 'Injects USE INDEX hint by default');
percona-toolkit-3.2.1/t/pt-table-sync/force_index.t-47-
percona-toolkit-3.2.1/t/pt-table-sync/force_index.t:48:$output = `PTDEBUG=1 $trunk/bin/pt-table-sync h=127.0.0.1,P=12345,u=msandbox,p=msandbox P=12346 -d test -t issue_37 --algorithms Chunk --chunk-size 3 --no-check-slave --no-check-triggers --no-index-hint --print 2>&1 | grep 'src: '`;
percona-toolkit-3.2.1/t/pt-table-sync/force_index.t-49-like($output, qr/FROM `test`\.`issue_37` WHERE/, 'No USE INDEX hint with --no-index-hint');
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_22.t-46-
percona-toolkit-3.2.1/t/pt-table-sync/issue_22.t:47:$output = `$trunk/bin/pt-table-sync --no-check-slave --execute u=msandbox,p=msandbox,P=12345,h=127.1,D=test,t=messages u=msandbox,p=msandbox,P=12345,h=127.1,D=test2,t=messages 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/issue_22.t-48-ok(!$output, 'Synced test.messages to test2.messages on same host (issue 22)');
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_262.t-44-$sb->use('slave1', '-e "truncate table foo.t1"');
percona-toolkit-3.2.1/t/pt-table-sync/issue_262.t:45:$output = `$trunk/bin/pt-table-sync --no-check-slave --print h=127.1,P=12345,u=msandbox,p=msandbox -d mysql,foo h=127.1,P=12346 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/issue_262.t-46-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_408.t-22-
percona-toolkit-3.2.1/t/pt-table-sync/issue_408.t:23:diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/issue_408.t-24-my $dbh2 = $sb->get_dbh_for('master1');
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_408.t-46-
percona-toolkit-3.2.1/t/pt-table-sync/issue_408.t:47:$output = `$trunk/bin/pt-table-sync --databases test --execute h=127.1,P=12345,u=msandbox,p=msandbox h=127.1,P=12348 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/issue_408.t-48-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_560.t-42-
percona-toolkit-3.2.1/t/pt-table-sync/issue_560.t:43:$output = `$trunk/bin/pt-table-checksum --replicate issue_560.checksum h=127.1,P=12345,u=msandbox,p=msandbox -d issue_560 --chunk-size 50 --set-vars innodb_lock_wait_timeout=3`;
percona-toolkit-3.2.1/t/pt-table-sync/issue_560.t-44-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_627.t-40-# #############################################################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_627.t:41:diag(`/tmp/12345/use < $trunk/t/pt-table-sync/samples/issue_375.sql`);
percona-toolkit-3.2.1/t/pt-table-sync/issue_627.t-42-sleep 1;
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_627.t-50-# Checksum and replicate.
percona-toolkit-3.2.1/t/pt-table-sync/issue_627.t:51:diag(`$trunk/bin/pt-table-checksum --create-replicate-table --replicate issue_375.checksum h=127.1,P=12345,u=msandbox,p=msandbox -d issue_375 -t t --set-vars innodb_lock_wait_timeout=3 > /dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/issue_627.t-52-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_631.t-35-# #############################################################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_631.t:36:diag(`/tmp/12345/use < $trunk/t/pt-table-sync/samples/issue_631.sql`);
percona-toolkit-3.2.1/t/pt-table-sync/issue_631.t-37-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_644.t-40-# #############################################################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_644.t:41:diag(`/tmp/12345/use < $trunk/t/pt-table-sync/samples/issue_644.sql`);
percona-toolkit-3.2.1/t/pt-table-sync/issue_644.t-42-sleep 1;
percona-toolkit-3.2.1/t/pt-table-sync/issue_644.t:43:$output = `$trunk/bin/pt-table-sync --algo Nibble --sync-to-master h=127.1,P=12346,u=msandbox,p=msandbox -d issue_644 --print --chunk-size 2 -v`;
percona-toolkit-3.2.1/t/pt-table-sync/issue_644.t-44-$output =~ s/\d\d:\d\d:\d\d/00:00:00/g;
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_644.t-54-# Thanks to issue 568, this table can be chunked on the char col.
percona-toolkit-3.2.1/t/pt-table-sync/issue_644.t:55:$output = `$trunk/bin/pt-table-sync --algo Chunk --sync-to-master h=127.1,P=12346,u=msandbox,p=msandbox -d issue_644 --print --chunk-size 2 -v`;
percona-toolkit-3.2.1/t/pt-table-sync/issue_644.t-56-$output =~ s/\d\d:\d\d:\d\d/00:00:00/g;
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_804.t-40-$master_dbh->do('insert into issue_804.t values (999,999)');
percona-toolkit-3.2.1/t/pt-table-sync/issue_804.t:41:$output = `$trunk/bin/pt-table-sync --sync-to-master h=127.1,P=12346,u=msandbox,p=msandbox -d issue_804 --print --algorithms Nibble 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/issue_804.t-42-$output = remove_traces($output);
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_96.t_-35-# #############################################################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_96.t_:36:diag(`/tmp/12345/use -D test < $trunk/t/lib/samples/issue_96.sql`);
percona-toolkit-3.2.1/t/pt-table-sync/issue_96.t_-37-sleep 1;
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_996.t__-67-# mk-table-checksum the table with 5 chunks of 20 rows.
percona-toolkit-3.2.1/t/pt-table-sync/issue_996.t__:68:$output = `$pt_table_checksum --replicate issue_375.checksums`;
percona-toolkit-3.2.1/t/pt-table-sync/issue_996.t__-69-is(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_996.t__-84-# The output shows that the 20-row range was chunked into 4 5-row sub-chunks.
percona-toolkit-3.2.1/t/pt-table-sync/issue_996.t__:85:$output = `cat $file | grep 'AS chunk_num' | cut -d' ' -f3,4`;
percona-toolkit-3.2.1/t/pt-table-sync/issue_996.t__-86-is(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/issue_996.t__-101-
percona-toolkit-3.2.1/t/pt-table-sync/issue_996.t__:102:diag(`rm -rf $file >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/issue_996.t__-103-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/lock_and_rename.t-43-
percona-toolkit-3.2.1/t/pt-table-sync/lock_and_rename.t:44:$output = `$trunk/bin/pt-table-sync --lock-and-rename h=127.1,P=12345 P=12346 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/lock_and_rename.t-45-like($output, qr/requires exactly two/,
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/lock_and_rename.t-51-
percona-toolkit-3.2.1/t/pt-table-sync/lock_and_rename.t:52:$output = `$trunk/bin/pt-table-sync --execute --lock-and-rename h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=test1 t=test2 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/lock_and_rename.t-53-diag $output if $output;
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/lock_level.t-40-
percona-toolkit-3.2.1/t/pt-table-sync/lock_level.t:41:$output = `$trunk/bin/pt-table-sync --sync-to-master h=127.1,P=12346,u=msandbox,p=msandbox,D=test,t=t --print --lock 3 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/lock_level.t-42-unlike(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/master_master.t-32-diag('Starting master-master servers...');
percona-toolkit-3.2.1/t/pt-table-sync/master_master.t:33:#diag(`$trunk/sandbox/start-sandbox master-master 12348 12349 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/master_master.t:34:diag(`$trunk/sandbox/start-sandbox master-master 12348 12349`);
percona-toolkit-3.2.1/t/pt-table-sync/master_master.t-35-my $master1_dbh = $sb->get_dbh_for('master1');
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/master_master.t-86-diag('Stopping master-master servers...');
percona-toolkit-3.2.1/t/pt-table-sync/master_master.t:87:diag(`$trunk/sandbox/stop-sandbox 12348 12349 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/master_master.t-88-
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/option_sanity.t-25-# This test reuses the test.message table created above for issue 22.
percona-toolkit-3.2.1/t/pt-table-sync/option_sanity.t:26:$output = `$trunk/bin/pt-table-sync h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=messages P=12346`;
percona-toolkit-3.2.1/t/pt-table-sync/option_sanity.t-27-like($output, qr/Specify at least one of --print, --execute or --dry-run/,
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/option_sanity.t-32-# #############################################################################
percona-toolkit-3.2.1/t/pt-table-sync/option_sanity.t:33:$output = `$trunk/bin/pt-table-sync h=localhost,D=test 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/option_sanity.t-34-like($output, qr/Are you trying to sync/, 'Throws error on D=');
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/pt-1256.t-85- # 3
percona-toolkit-3.2.1/t/pt-table-sync/pt-1256.t:86: $output = `$trunk/bin/pt-table-sync --execute --lock-and-rename h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=t1 t=t2 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/pt-1256.t-87- $output = `/tmp/12345/use -e 'show create table test.t2'`;
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/specify_column_or_index.t-39-# #############################################################################
percona-toolkit-3.2.1/t/pt-table-sync/specify_column_or_index.t:40:diag(`/tmp/12345/use < $trunk/t/pt-table-sync/samples/issue_375.sql`);
percona-toolkit-3.2.1/t/pt-table-sync/specify_column_or_index.t-41-sleep 1;
percona-toolkit-3.2.1/t/pt-table-sync/specify_column_or_index.t:42:$output = `$trunk/bin/pt-table-sync --sync-to-master h=127.1,P=12346,u=msandbox,p=msandbox -d issue_375 --print -v -v --chunk-size 50 --chunk-index updated_at`;
percona-toolkit-3.2.1/t/pt-table-sync/specify_column_or_index.t-43-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/specify_column_or_index.t-48-
percona-toolkit-3.2.1/t/pt-table-sync/specify_column_or_index.t:49:$output = `$trunk/bin/pt-table-sync --sync-to-master h=127.1,P=12346,u=msandbox,p=msandbox -d issue_375 --print -v -v --chunk-size 50 --chunk-column updated_at`;
percona-toolkit-3.2.1/t/pt-table-sync/specify_column_or_index.t-50-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/standard_options.t-20-# Test DSN value inheritance.
percona-toolkit-3.2.1/t/pt-table-sync/standard_options.t:21:$output = `$trunk/bin/pt-table-sync h=127.1 h=127.2,P=12346 --port 12345 --explain-hosts`;
percona-toolkit-3.2.1/t/pt-table-sync/standard_options.t-22-is(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/standard_options.t-35-
percona-toolkit-3.2.1/t/pt-table-sync/standard_options.t:36:$output = `$trunk/bin/pt-table-sync --explain-hosts localhost,D=foo,t=bar t=baz`;
percona-toolkit-3.2.1/t/pt-table-sync/standard_options.t-37-is($output,
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/standard_options.t-47-`touch /tmp/mk-table-sync.pid`;
percona-toolkit-3.2.1/t/pt-table-sync/standard_options.t:48:$output = `$trunk/bin/pt-table-sync h=127.1,P=12346,u=msandbox,p=msandbox --sync-to-master --print --no-check-triggers --pid /tmp/mk-table-sync.pid 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/standard_options.t-49-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/sync_to_differnt_db.t-22-
percona-toolkit-3.2.1/t/pt-table-sync/sync_to_differnt_db.t:23:diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/sync_to_differnt_db.t-24-my $dbh2 = $sb->get_dbh_for('master1');
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/sync_to_differnt_db.t-47-
percona-toolkit-3.2.1/t/pt-table-sync/sync_to_differnt_db.t:48:$output = `$trunk/bin/pt-table-sync --no-check-slave --execute h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=test1 h=127.1,P=12348,D=d2,t=test2 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/sync_to_differnt_db.t-49-is(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/sync_to_differnt_db.t-66-$sb->wipe_clean($master_dbh);
percona-toolkit-3.2.1/t/pt-table-sync/sync_to_differnt_db.t:67:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-table-sync/sync_to_differnt_db.t-68-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/traces.t-66-my $user = $ENV{USER} ? "user:$ENV{USER}" : '';
percona-toolkit-3.2.1/t/pt-table-sync/traces.t:67:my $output = `$mysqlbinlog /tmp/12345/data/$pos->{file} --start-position=$pos->{position} | grep 'percona-toolkit'`;
percona-toolkit-3.2.1/t/pt-table-sync/traces.t-68-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-46-
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t:47:`$trunk/bin/pt-table-checksum h=127.0.0.1,P=12345,u=msandbox,p=msandbox --replicate test.checksum -d test --set-vars innodb_lock_wait_timeout=3 2>&1 > /dev/null`;
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-48-
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t:49:$output = `$trunk/bin/pt-table-sync --no-check-slave --execute u=msandbox,p=msandbox,h=127.0.0.1,P=12345,D=test,t=issue_37 h=127.1,P=12346 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-50-like($output,
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-54-
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t:55:$output = `$trunk/bin/pt-table-sync --replicate test.checksum --sync-to-master --execute h=127.1,P=12346,u=msandbox,p=msandbox -d test -t issue_37 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-56-like($output,
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-60-
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t:61:$output = `$trunk/bin/pt-table-sync --replicate test.checksum --execute h=127.1,P=12345,u=msandbox,p=msandbox -d test -t issue_37 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-62-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-67-
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t:68:$output = `$trunk/bin/pt-table-sync --execute --ignore-databases mysql h=127.0.0.1,P=12345,u=msandbox,p=msandbox h=127.1,P=12346 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-69-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-80-
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t:81:$output = `$trunk/bin/pt-table-sync --no-check-slave --execute u=msandbox,p=msandbox,h=127.0.0.1,P=12345,D=test,t=issue_37 h=127.1,P=12346 --no-check-triggers 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-82-unlike(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-105-# Replicate checksum of db2.t1.
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t:106:$output = `$trunk/bin/pt-table-checksum h=127.1,P=12345,u=msandbox,p=msandbox --replicate db1.checksum --create-replicate-table --databases db1,db2 --set-vars innodb_lock_wait_timeout=3 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-107-like(
##############################################
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-116-# be ignored.
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t:117:$output = `$trunk/bin/pt-table-sync h=127.1,P=12345,u=msandbox,p=msandbox --databases db2 --replicate db1.checksum --execute 2>&1`;
percona-toolkit-3.2.1/t/pt-table-sync/triggers.t-118-unlike(
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/compare_hosts.t-21-# This runs immediately if the server is already running, else it starts it.
percona-toolkit-3.2.1/t/pt-upgrade/compare_hosts.t:22:diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-upgrade/compare_hosts.t-23-
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/compare_hosts.t-82- if ( -f "$samples_dir/$sampleno/$basename.sed" ) {
percona-toolkit-3.2.1/t/pt-upgrade/compare_hosts.t:83: chomp($sed = `cat $samples_dir/$sampleno/$basename.sed`);
percona-toolkit-3.2.1/t/pt-upgrade/compare_hosts.t-84- }
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/compare_hosts.t-125-$sb->wipe_clean($dbh1);
percona-toolkit-3.2.1/t/pt-upgrade/compare_hosts.t:126:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-upgrade/compare_hosts.t-127-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t-22-# This runs immediately if the server is already running, else it starts it.
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t:23:diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t-24-
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t-83- if ( -f "$samples_dir/$sampleno/$basename.sed" ) {
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t:84: chomp($sed = `cat $samples_dir/$sampleno/$basename.sed`);
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t-85- }
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t-86-
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t:87: diag(`rm -rf $tmpdir/*`);
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t-88-
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t-127- "\n\n---- SAVE RESULTS ----\n\n", $save_results_output,
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t:128: `cat $tmpdir/*`, "\n",
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t-129- "\n\n---- OUTPUT ----\n\n", $output);
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t-143-$sb->wipe_clean($dbh1);
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t:144:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-upgrade/compare_results.t-145-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/diff_warnings.t-133-$sb->wipe_clean($dbh1);
percona-toolkit-3.2.1/t/pt-upgrade/diff_warnings.t:134:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-upgrade/diff_warnings.t-135-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/run_time.t-22-# This runs immediately if the server is already running, else it starts it.
percona-toolkit-3.2.1/t/pt-upgrade/run_time.t:23:diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-upgrade/run_time.t-24-
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/run_time.t-119-$sb->wipe_clean($dbh1);
percona-toolkit-3.2.1/t/pt-upgrade/run_time.t:120:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-upgrade/run_time.t-121-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/save_results.t-23-# This runs immediately if the server is already running, else it starts it.
percona-toolkit-3.2.1/t/pt-upgrade/save_results.t:24:diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-upgrade/save_results.t-25-
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/save_results.t-76- if ( -d $results_dir ) {
percona-toolkit-3.2.1/t/pt-upgrade/save_results.t:77: diag(`rm -rf $tmpdir/*`);
percona-toolkit-3.2.1/t/pt-upgrade/save_results.t-78-
##############################################
percona-toolkit-3.2.1/t/pt-upgrade/save_results.t-121-$sb->wipe_clean($dbh1);
percona-toolkit-3.2.1/t/pt-upgrade/save_results.t:122:diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
percona-toolkit-3.2.1/t/pt-upgrade/save_results.t-123-ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
##############################################
percona-toolkit-3.2.1/t/pt-variable-advisor/option_sanity.t-19-
percona-toolkit-3.2.1/t/pt-variable-advisor/option_sanity.t:20:$output = `$cmd --source-of-variables=/tmp/foozy-fazzle-bad-file 2>&1`;
percona-toolkit-3.2.1/t/pt-variable-advisor/option_sanity.t-21-like(
##############################################
percona-toolkit-3.2.1/t/pt-variable-advisor/option_sanity.t-26-
percona-toolkit-3.2.1/t/pt-variable-advisor/option_sanity.t:27:$output = `$cmd --source-of-variables mysql 2>&1`;
percona-toolkit-3.2.1/t/pt-variable-advisor/option_sanity.t-28-like(
##############################################
percona-toolkit-3.2.1/t/pt-visual-explain/pt-visual-explain.t-43-`touch /tmp/mk-script.pid`;
percona-toolkit-3.2.1/t/pt-visual-explain/pt-visual-explain.t:44:my $output = `$trunk/bin/pt-visual-explain $trunk/t/pt-visual-explain/samples/simple_union.sql --format dump --pid /tmp/mk-script.pid 2>&1`;
percona-toolkit-3.2.1/t/pt-visual-explain/pt-visual-explain.t-45-like(
##############################################
percona-toolkit-3.2.1/t/pt-visual-explain/pt-visual-explain.t-55-# ############################################################################
percona-toolkit-3.2.1/t/pt-visual-explain/pt-visual-explain.t:56:$output = `$trunk/bin/pt-visual-explain --version 2>&1`;
percona-toolkit-3.2.1/t/pt-visual-explain/pt-visual-explain.t-57-like(
##############################################
percona-toolkit-3.2.1/util/NaturalDocs/JavaScript/GooglePrettify.js-122- "new operator private protected public this throw true try typeof ";
percona-toolkit-3.2.1/util/NaturalDocs/JavaScript/GooglePrettify.js:123: var CPP_KEYWORDS = COMMON_KEYWORDS + "alignof align_union asm axiom bool " +
percona-toolkit-3.2.1/util/NaturalDocs/JavaScript/GooglePrettify.js-124- "concept concept_map const_cast constexpr decltype " +
##############################################
percona-toolkit-3.2.1/util/NaturalDocs/JavaScript/GooglePrettify.js-1515-
percona-toolkit-3.2.1/util/NaturalDocs/JavaScript/GooglePrettify.js:1516:PR.registerLangHandler(PR.createSimpleLexer([[PR.PR_PLAIN,/^[\t\n\r \xA0]+/,null,' \n\r \xa0'],[PR.PR_COMMENT,/^#(?:if[\t\n\r \xA0]+(?:[a-z_$][\w\']*|``[^\r\n\t`]*(?:``|$))|else|endif|light)/i,null,'#'],[PR.PR_STRING,/^(?:\"(?:[^\"\\]|\\[\s\S])*(?:\"|$)|\'(?:[^\'\\]|\\[\s\S])*(?:\'|$))/,null,'\"\'']],[[PR.PR_COMMENT,/^(?:\/\/[^\r\n]*|\(\*[\s\S]*?\*\))/],[PR.PR_KEYWORD,/^(?:abstract|and|as|assert|begin|class|default|delegate|do|done|downcast|downto|elif|else|end|exception|extern|false|finally|for|fun|function|if|in|inherit|inline|interface|internal|lazy|let|match|member|module|mutable|namespace|new|null|of|open|or|override|private|public|rec|return|static|struct|then|to|true|try|type|upcast|use|val|void|when|while|with|yield|asr|land|lor|lsl|lsr|lxor|mod|sig|atomic|break|checked|component|const|constraint|constructor|continue|eager|event|external|fixed|functor|global|include|method|mixin|object|parallel|process|protected|pure|sealed|trait|virtual|volatile)\b/],[PR.PR_LITERAL,/^[+\-]?(?:0x[\da-f]+|(?:(?:\.\d+|\d+(?:\.\d*)?)(?:e[+\-]?\d+)?))/i],[PR.PR_PLAIN,/^(?:[a-z_]\w*[!?#]?|``[^\r\n\t`]*(?:``|$))/i],[PR.PR_PUNCTUATION,/^[^\t\n\r \xA0\"\'\w]+/]]),['fs','ml'])
percona-toolkit-3.2.1/util/NaturalDocs/JavaScript/GooglePrettify.js-1517-
##############################################
percona-toolkit-3.2.1/util/build-packages-101- cd $BRANCH
percona-toolkit-3.2.1/util/build-packages:102: local current_version=$(expr `cat Makefile.PL | grep VERSION | awk '{print $3}'` : "'\([0-9.]*\)'")
percona-toolkit-3.2.1/util/build-packages-103- if ! [ "$VERSION" '>' "$current_version" ]; then
##############################################
percona-toolkit-3.2.1/util/check-dev-env-43-# Not a module but we want to know the Perl version.
percona-toolkit-3.2.1/util/check-dev-env:44:printf $fmt, "Perl", `perl -v | perl -ne '/v([\\d\\.]+)/ && print \$1'`;
percona-toolkit-3.2.1/util/check-dev-env-45-
##############################################
percona-toolkit-3.2.1/util/check-load-data-44-
percona-toolkit-3.2.1/util/check-load-data:45:`echo 1 > /tmp/load_data_test.$$`;
percona-toolkit-3.2.1/util/check-load-data-46-
##############################################
percona-toolkit-3.2.1/util/check-spelling-30-# Convert tool's POD to text.
percona-toolkit-3.2.1/util/check-spelling:31:`$pod2text $tool_file > $pod_file`;
percona-toolkit-3.2.1/util/check-spelling-32-
percona-toolkit-3.2.1/util/check-spelling-33-# Spell check the text file.
percona-toolkit-3.2.1/util/check-spelling:34:`cat $pod_file | $aspell --pipe --lang en_US --personal ./aspell.en.pws > $bad_words_file`;
percona-toolkit-3.2.1/util/check-spelling-35-
##############################################
percona-toolkit-3.2.1/util/check-spelling-37-print "$tool_name:\n\n";
percona-toolkit-3.2.1/util/check-spelling:38:print `./parse-aspell-output $bad_words_file $pod_file`;
percona-toolkit-3.2.1/util/check-spelling-39-print "\n";
##############################################
percona-toolkit-3.2.1/util/check-spelling-41-# Cleanup.
percona-toolkit-3.2.1/util/check-spelling:42:`rm -rf $pod_file`;
percona-toolkit-3.2.1/util/check-spelling:43:`rm -rf $bad_words_file`;
percona-toolkit-3.2.1/util/check-spelling-44-
##############################################
percona-toolkit-3.2.1/util/check-tool-89- return unless $file;
percona-toolkit-3.2.1/util/check-tool:90: my $head = `head -n 1 $file`;
percona-toolkit-3.2.1/util/check-tool-91- return unless $head;
##############################################
percona-toolkit-3.2.1/util/check-tool-204- # Transformers->import
percona-toolkit-3.2.1/util/check-tool:205: chomp(my $i = `grep -c '${_}->import' $tool_file`);
percona-toolkit-3.2.1/util/check-tool-206- $unused = 1 unless $i;
##############################################
percona-toolkit-3.2.1/util/check-tool-295-
percona-toolkit-3.2.1/util/check-tool:296: my $help = `$tool_file --help`;
percona-toolkit-3.2.1/util/check-tool-297-
##############################################
percona-toolkit-3.2.1/util/check-tool-366- my @hdrs;
percona-toolkit-3.2.1/util/check-tool:367: foreach my $hdr ( split(/\n/, `grep '^=head1' $tool_file`) ) {
percona-toolkit-3.2.1/util/check-tool-368- $hdr =~ s/^=head1 //;
##############################################
percona-toolkit-3.2.1/util/check-tool-394-
percona-toolkit-3.2.1/util/check-tool:395: my $output = `perldoc -T $tool_file 2>&1`;
percona-toolkit-3.2.1/util/check-tool-396- # unlike() will print the whole POD if this fails; ok() is more terse.
##############################################
percona-toolkit-3.2.1/util/check-tool-403- if ( $podchecker ) {
percona-toolkit-3.2.1/util/check-tool:404: $output = `$podchecker $tool_file 2>&1`;
percona-toolkit-3.2.1/util/check-tool-405- if ( $output !~ m/pod syntax OK/ ) {
##############################################
percona-toolkit-3.2.1/util/check-tool-441- my @unused = grep {
percona-toolkit-3.2.1/util/check-tool:442: chomp(my $get = `grep -c "get('$_')" $tool_file`);
percona-toolkit-3.2.1/util/check-tool:443: chomp(my $got = `grep -c "got('$_')" $tool_file`);
percona-toolkit-3.2.1/util/check-tool-444- $get ||= 0;
##############################################
percona-toolkit-3.2.1/util/check-tool-456- (my $pkg = $tool_name) =~ s/-/_/g;
percona-toolkit-3.2.1/util/check-tool:457: my $main = `grep -A 1000 $pkg $tool_file`;
percona-toolkit-3.2.1/util/check-tool-458- if ( $main !~ m/->parse_options\(/ ) {
##############################################
percona-toolkit-3.2.1/util/check-tool-468-
percona-toolkit-3.2.1/util/check-tool:469: my %ops = map { $_=>1 } split /\n/, `awk '/^=item --/ {print \$2}' $tool_file`;
percona-toolkit-3.2.1/util/check-tool:470: my $len = `wc -l $tool_file`;
percona-toolkit-3.2.1/util/check-tool:471: my $doc = `grep '^=pod' -A $len`;
percona-toolkit-3.2.1/util/check-tool-472- while ( $doc =~ m/(--[a-z]+[a-z-]+)/sg ) {
##############################################
percona-toolkit-3.2.1/util/check-tool-482-sub check_pod_links {
percona-toolkit-3.2.1/util/check-tool:483: my $offset = `cat $tool_file | grep '^=head1 NAME' --byte-offset | cut -d ':' -f 1`;
percona-toolkit-3.2.1/util/check-tool-484- if ( !$offset ) {
##############################################
percona-toolkit-3.2.1/util/check-tool-488- chomp $offset;
percona-toolkit-3.2.1/util/check-tool:489: my $pod = `tail -c +$offset $tool_file`;
percona-toolkit-3.2.1/util/check-tool-490- if ( !$pod ) {
##############################################
percona-toolkit-3.2.1/util/kill-mysql-process-3-# This script helps test that tools reconnect to MySQL. Its meant to be ran
percona-toolkit-3.2.1/util/kill-mysql-process:4:# in the background like system(qq($trunk/util/kill-mysql-process DB)) where
percona-toolkit-3.2.1/util/kill-mysql-process-5-# DB is the name of special "tracer" database used to isolate the test in
##############################################
percona-toolkit-3.2.1/util/kill-mysql-process-32-while ( time - $t_start < $opt{runtime} ) {
percona-toolkit-3.2.1/util/kill-mysql-process:33: my $procs = `/tmp/12345/use -ss -e "show processlist" | grep $opt{db} | cut -f1`;
percona-toolkit-3.2.1/util/kill-mysql-process-34- if ( $procs && $procs =~ /\d/ ) {
##############################################
percona-toolkit-3.2.1/util/kill-mysql-process-36- chomp $proc;
percona-toolkit-3.2.1/util/kill-mysql-process:37: `/tmp/12345/use -e "KILL $proc"`;
percona-toolkit-3.2.1/util/kill-mysql-process-38- }
##############################################
percona-toolkit-3.2.1/util/pod2rst-fixed-35- ('=' x (length($tool) + 11)) . "\n" .
percona-toolkit-3.2.1/util/pod2rst-fixed:36: ":program:`$tool`\n" .
percona-toolkit-3.2.1/util/pod2rst-fixed-37- ('=' x (length($tool) + 11)) . "\n\n";
##############################################
percona-toolkit-3.2.1/util/pod2rst-fixed-76- $para =~ s/\.\. code-block:: perl/.. code-block:: bash/mg;
percona-toolkit-3.2.1/util/pod2rst-fixed:77: $para =~ s/`+$tool`+/$tool/g;
percona-toolkit-3.2.1/util/pod2rst-fixed:78: $para =~ s/([^\/])$tool/$1:program:`$tool`/g unless $in_code_block;
percona-toolkit-3.2.1/util/pod2rst-fixed:79: $para =~ s/^$tool/:program:`$tool`/gm;
percona-toolkit-3.2.1/util/pod2rst-fixed-80- $para =~ s/^--(\S+)$/.. option:: --$1/mg;
percona-toolkit-3.2.1/util/pod2rst-fixed:81: $para =~ s/"--(\S+)"/:option:`--$1`/g;
percona-toolkit-3.2.1/util/pod2rst-fixed-82- $para =~ s/\\\*/*/g;
##############################################
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5052-
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5053: return '\ ``' . $text . '``\ ';
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5054- }
##############################################
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5112- elsif (defined($label) and $label ne '') {
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5113: $text = qq{`$label <$url>`_};
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5114- }
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5115- else {
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5116: $text = qq{`$url <$url>`_};
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5117- }
##############################################
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5124- (my $section = $1) =~ s/\A"(.+)"/$1/;
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5125: $text = qq{`$section`_};
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5126- }
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5127- elsif ($text =~ m{\Ahttps?://}) {
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5128: $text = qq{`$text <$text>`_};
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5129- }
##############################################
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5139- my $url = "http://search.cpan.org/search?query=$module&mode=module";
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5140: $text = qq{`$label <$url>`_};
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5141- }
##############################################
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5707- ('=' x (length($tool) + 11)) . "\n" .
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5708: ":program:`$tool`\n" .
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5709- ('=' x (length($tool) + 11)) . "\n\n";
##############################################
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5748- $para =~ s/\.\. code-block:: perl/.. code-block:: bash/mg;
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5749: $para =~ s/`+$tool`+/$tool/g;
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5750: $para =~ s/([^\/])$tool/$1:program:`$tool`/g unless $in_code_block;
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5751: $para =~ s/^$tool/:program:`$tool`/gm;
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5752- $para =~ s/^--(\S+)$/.. option:: --$1/mg;
percona-toolkit-3.2.1/util/pod2rst-fixed.packed:5753: $para =~ s/"--(\S+)"/:option:`--$1`/g;
percona-toolkit-3.2.1/util/pod2rst-fixed.packed-5754- $para =~ s/\\\*/*/g;
##############################################
percona-toolkit-3.2.1/util/unused-modules-5-for m in *.pm; do
percona-toolkit-3.2.1/util/unused-modules:6: M=`echo $m | sed 's/.pm//'`
percona-toolkit-3.2.1/util/unused-modules-7- grep -q "^# $M package" $PERCONA_TOOLKIT_BRANCH/bin/*
##############################################
percona-toolkit-3.2.1/util/wait-to-exec-26- # exec does not return; this script becomes the exec process.
percona-toolkit-3.2.1/util/wait-to-exec:27: exec($exec);
percona-toolkit-3.2.1/util/wait-to-exec-28- }
##############################################
percona-toolkit-3.2.1/util/wait-to-exec-35- my ($wait) = @_;
percona-toolkit-3.2.1/util/wait-to-exec:36: system($wait);
percona-toolkit-3.2.1/util/wait-to-exec-37- # Like grep, exit status 0 means "match found", so stop waiting.
##############################################
percona-toolkit-3.2.1/util/write-user-docs-154- else
percona-toolkit-3.2.1/util/write-user-docs:155: for tool in `ls $BRANCH/bin/*`; do
percona-toolkit-3.2.1/util/write-user-docs-156- write_rst $tool
##############################################
percona-toolkit-3.2.1/util/write-user-docs-180-else
percona-toolkit-3.2.1/util/write-user-docs:181: for tool in `ls $BRANCH/bin/*`; do
percona-toolkit-3.2.1/util/write-user-docs-182- name="$(basename $tool)"
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-2964- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill:2965: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-2966-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-3167-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill:3168: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-3169-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-3276- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill:3277: return "`$val`";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-3278-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-4672- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill:4673: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-4674-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-4719- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill:4720: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill:4721: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-4722- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-6670- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill:6671: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-6672- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-6686- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill:6687: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-6688- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-6696- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill:6697: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-6698- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-7456- POSIX::setsid() or die "Cannot start a new session: $OS_ERROR";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill:7457: my $retval = system($cmd);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-kill-7458- $retval = $retval >> 8;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-2841- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:2842: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-2843-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-2890- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:2891: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:2892: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-2893- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-3037- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:3038: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-3039- type => $cmp,
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-3124- scols => \@r_scols,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:3125: where => $result,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-3126- };
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-3332- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:3333: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-3334-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-3535-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:3536: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-3537-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-3644- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:3645: return "`$val`";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-3646-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-5566-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:5567: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-5568- my $tbl_struct = $tbl->{tbl_struct};
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-5695-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:5696: my $from = "$tbl->{name} FORCE INDEX(`$index`)";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-5697- my $order_by = join(', ', map {$q->quote($_)} @{$index_cols});
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-5789- from => $from,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:5790: where => $where,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-5791- boundaries => $asc->{boundaries},
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-5983-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:5984: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-5985-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-5988- tbl => $tbl,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:5989: where => $where,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-5990- );
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-6104- my $sql = "SHOW INDEXES FROM $tbl->{name} "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:6105: . "WHERE Key_name = '$index'";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-6106- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-8027- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:8028: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-8029- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-8043- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:8044: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-8045- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-8053- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:8054: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-8055- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10368- . " 'No, the desired unique index contains duplicated values. There will be data loss'\n"
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:10369: . ") AS IsThereUniqueness FROM `$tbl->{db}`.`$tbl->{tbl}`;\n\n";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10370- $msg .= $sql;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10538- # would match if this regex was used like /.$re/,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:10539: # or even more tellingly, would match on "``" =~ /`$re`/
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10540- $quoted_ident_character+ # One or more characters
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:10541: (?:``$quoted_ident_character*)* # possibly followed by `` and
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10542- # more characters, zero or more times
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10543- |$quoted_ident_character* # OR, zero or more characters
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:10544: (?:``$quoted_ident_character* )+ # Followed by `` and maybe more
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10545- # characters, one or more times.
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10553-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:10554: my $table_ident = qr/$unquoted_ident|`$quoted_ident`|"$ansi_quotes_ident"/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10555-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10717- # Limit constraint name to 64 characters
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:10718: $sql =~ s/CONSTRAINT `([^`]{1,64})[^`]*` (.*)/ CONSTRAINT `$1` $2/gm;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10719-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10976- . "FROM information_schema.key_column_usage "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:10977: . "WHERE referenced_table_schema='$tbl->{db}' "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-10978- . "AND referenced_table_name='$tbl->{tbl}'";
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11145-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11146: $constraint =~ s/CONSTRAINT `$fk`/CONSTRAINT `$new_fk`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11147-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11148: my $sql = "DROP FOREIGN KEY `$fk`, "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11149- . "ADD $constraint";
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11294- my $delete_trigger
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11295: = "CREATE TRIGGER `${prefix}_del` AFTER DELETE ON $orig_tbl->{name} "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11296- . "FOR EACH ROW "
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11304- my $insert_trigger
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11305: = "CREATE TRIGGER `${prefix}_ins` AFTER INSERT ON $orig_tbl->{name} "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11306- . "FOR EACH ROW "
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11319- my $update_trigger
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11320: = "CREATE TRIGGER `${prefix}_upd` AFTER UPDATE ON $orig_tbl->{name} "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11321- . "FOR EACH ROW "
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11382- $definer =~ s/@/`@`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11383: $definer = "`$definer`" ;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11384-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11389- my $sql = "CREATE DEFINER=$definer "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11390: . "TRIGGER `$new_tbl->{db}`.`$tmp_trigger_name` "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11391- . "$orig_trigger->{action_timing} $orig_trigger->{event_manipulation} ON $new_tbl->{tbl}\n"
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11402- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11403: $dbh->do("DROP TRIGGER IF EXISTS `$tmp_trigger_name`");
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11404- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11484- $definer =~ s/@/`@`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11485: $definer = "`$definer`" ;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11486-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11487- my $sqls = [];
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11488: push @$sqls, "LOCK TABLES `$args{db}`.`$args{new_tbl}` WRITE, `$args{db}`. `$args{orig_tbl}` WRITE;";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11489- push @$sqls, '/*!50003 SET @saved_sql_mode = @@sql_mode */';
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11497-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11498: push @$sqls, "DROP TRIGGER IF EXISTS `$args{db}`.`$trigger->{trigger_name}` " if ! $args{duplicate_trigger};
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11499-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11500- push @$sqls, "CREATE DEFINER=$definer "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change:11501: . "TRIGGER `$args{db}`.`$trigger->{trigger_name}$suffix` "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-online-schema-change-11502- . "$trigger->{action_timing} $trigger->{event_manipulation} ON $args{new_tbl}\n"
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-1243- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:1244: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-1245-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-1290- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:1291: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:1292: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-1293- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-5865- my $attrib = $args{attrib};
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:5866: my $where = $args{where};
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-5867-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-6810- eval {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:6811: my $mem = `ps -o rss,vsz -p $PID 2>&1`;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-6812- ( $rss, $vsz ) = $mem =~ m/(\d+)/g;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-7135- $vals{variance_to_mean} = do {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:7136: my $query_time = $ea->metrics(where => $item, attrib => 'Query_time');
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-7137- $query_time->{stddev}**2 / ($query_time->{avg} || 1)
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-7374- my $samp_query = $sample->{arg} || '';
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:7375: my $query_time = $ea->metrics(where => $item, attrib => 'Query_time');
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-7376-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-7762- $tables .= '# SHOW TABLE STATUS'
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:7763: . ($db ? " FROM `$db`" : '')
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-7764- . " LIKE '$tbl'${mark}\n";
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-8097- attrib => $attrib,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:8098: where => $item,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-8099- );
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-8158- = 'SHOW TABLE STATUS'
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:8159: . ($db ? " FROM `$db`" : '')
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-8160- . " LIKE '$tbl'${mark}";
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-8907- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:8908: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-8909-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-9110-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:9111: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-9112-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-9219- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:9220: return "`$val`";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-9221-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-12962- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:12963: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-12964- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-12978- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:12979: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-12980- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-12988- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:12989: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-12990- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-14884- attrib => $attrib,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest:14885: where => $item,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-query-digest-14886- );
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-summary-496- local pid="$$"
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-summary:497: PT_TMPDIR=`mktemp -d -t "${tool}.${pid}.XXXXXX"` \
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-summary-498- || die "Cannot make secure tmpdir"
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-1241- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:1242: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-1243- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-1257- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:1258: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-1259- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-1267- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:1268: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-1269- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4090- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:4091: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4092-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4137- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:4138: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:4139: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4140- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4507- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:4508: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4509-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4710-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:4711: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4712-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4819- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:4820: return "`$val`";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4821-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4910- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:4911: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4912- type => $cmp,
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4997- scols => \@r_scols,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:4998: where => $result,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-4999- };
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6368-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:6369: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6370- my $tbl_struct = $tbl->{tbl_struct};
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6494-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:6495: my $from = "$tbl->{name} FORCE INDEX(`$index`)";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6496- my $order_by = join(', ', map {$q->quote($_)} @{$index_cols});
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6588- from => $from,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:6589: where => $where,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6590- boundaries => $asc->{boundaries},
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6782-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:6783: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6784-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6787- tbl => $tbl,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:6788: where => $where,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6789- );
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6903- my $sql = "SHOW INDEXES FROM $tbl->{name} "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:6904: . "WHERE Key_name = '$index'";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-6905- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-7153- my $o = $self->{OptionParser};
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:7154: my $where = $o->has('where') ? $o->get('where') : undef;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-7155-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-7737- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:7738: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-7739- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-11056- tbl => $tbl,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:11057: where => $o->get('where'),
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-11058- );
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-11422- repl_table => $repl_table,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:11423: where => "db='$tbl->{db}' AND tbl='$tbl->{tbl}'",
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-11424- );
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-12506- my $sql = "SELECT MAX(chunk) FROM $repl_table "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum:12507: . "WHERE db='$tbl->{db}' AND tbl='$tbl->{tbl}' "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-checksum-12508- . "AND master_crc IS NOT NULL";
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-1900- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:1901: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-1902-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-1949- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:1950: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:1951: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-1952- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-2883- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:2884: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-2885-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3086-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:3087: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3088-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3195- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:3196: return "`$val`";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3197-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3577- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:3578: my %in_where = map { $_ => 1 } @$cols;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:3579: my $where = $self->make_where_clause($row, $cols);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3580- my @cols;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3625- if ( my $dbh = $self->{fetch_back} ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:3626: my $where = $self->make_where_clause($row, $cols);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3627- my $sql = $self->make_fetch_back_query($where);
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3712- && $tbl_struct->{type_for}->{$col} =~ m/b(?:lob|inary)/ ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:3713: $col = "IF(BINARY(`$col`)='', '', CONCAT('0x', HEX(`$col`))) AS `$col`";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3714- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3715- else {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:3716: $col = "`$col`";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3717- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3975- die "Error calculating chunk start and end points for table "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:3976: . "`$args{tbl_struct}->{name}` on column `$args{chunk_col}` "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-3977- . "with min/max values "
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-4269- my ($dbh, $db, $tbl, $col) = @args{@required_args};
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:4270: my $where = $args{where};
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-4271- my $q = $self->{Quoter};
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-4327- $query =~ s!/\*PROGRESS_COMMENT\*/!$comment!;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:4328: my $where = "WHERE (" . $args{chunks}->[$args{chunk_num}] . ')';
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-4329- if ( $args{where} && grep { $_ } @{$args{where}} ) {
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-4337- PTDEBUG && _d('Parameters:',
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:4338: Dumper({WHERE => $where, DB_TBL => $db_tbl, INDEX_HINT => $index_hint}));
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-4339- $query =~ s!/\*WHERE\*/! $where!;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5224- index_hint => $self->{index_hint},
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:5225: where => [ $args{where} ],
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5226- );
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5428- eval {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:5429: my $sql = "SHOW TABLE STATUS FROM `$db` LIKE "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5430- . $self->{Quoter}->literal_like($tbl);
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5526- else {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:5527: my $where = $self->__get_boundaries(%args);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5528- return $self->{TableChunker}->inject_chunks(
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5534- index_hint => $self->{index_hint},
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:5535: where => [ $args{where} ],
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5536- );
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5567- . " because MySQL chose "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:5568: . ($explain_index ? "the `$explain_index`" : 'no') . ' index'
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:5569: . " instead of the `$s->{index}` index";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5570- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5586-
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:5587: my $where = $lb ? "($lb AND $ub)" : $ub;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-5588-
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-6008- eval {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:6009: $src->{dbh}->do("USE `$src->{db}`");
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:6010: $dst->{dbh}->do("USE `$dst->{db}`");
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-6011- };
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-6042- table => $src->{tbl},
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:6043: where => $args{where},
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-6044- );
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-6047- table => $dst->{tbl},
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:6048: where => $args{where},
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-6049- );
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-6443- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:6444: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-6445- type => $cmp,
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-6530- scols => \@r_scols,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:6531: where => $result,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-6532- };
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-7825- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:7826: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-7827- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-9692- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:9693: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-9694- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-9708- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:9709: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-9710- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-9718- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:9719: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-9720- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-10802- callback => $callback,
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:10803: where => $args{where} || $o->get('where'),
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-10804- bidirectional => $o->get('bidirectional'),
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-11441- if ( $cmp eq 'equals' || $cmp eq 'matches' ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:11442: $err = "neither `$col` value $cmp $val";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-11443- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-11444- else {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:11445: $err = "`$col` values are the same"
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-11446- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-11448- elsif ( $res == FAILED_THRESHOLD ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:11449: $err = "`$col` values do not differ by the threhold, $thr."
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-11450- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-11457- $action = undef; # skip change in case we just warn
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:11458: my $where = $ch->make_where_clause($lr, $syncer->key_cols());
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-11459- $err = "# Cannot resolve conflict WHERE $where: $err\n";
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-11642- . "FROM information_schema.key_column_usage "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync:11643: . "WHERE constraint_schema='$tbl->{db}' "
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-table-sync-11644- . "AND referenced_table_name='$tbl->{tbl}'";
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-1240- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade:1241: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-1242-}
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-1287- }
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade:1288: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade:1289: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-1290- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-4552- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade:4553: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-4554- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-4568- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade:4569: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-4570- }
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-4578- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade:4579: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-4580- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-5723- PTDEBUG && _d('New current db:', $db);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade:5724: $host->dbh->do("USE `$db`");
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-5725- $host->{current_db} = $db;
##############################################
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-6418- PTDEBUG && _d('New current db:', $db);
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade:6419: print { $self->_query_fh } "use `$db`;\n";
percona-toolkit-3.2.1/.pc/01-fix-spelling-errors.diff/bin/pt-upgrade-6420- $self->current_database($db);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-1962- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:1963: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-1964-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-2165-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:2166: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-2167-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-2274- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:2275: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-2276-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-2961- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:2962: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-2963-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-3008- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:3009: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:3010: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-3011- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-3155- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:3156: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-3157- type => $cmp,
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-3242- scols => \@r_scols,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:3243: where => $result,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-3244- };
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-5862- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:5863: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-5864- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-5878- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:5879: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-5880- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-5888- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:5889: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-5890- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-6434- ? ((VersionParser->new($dbh) >= '4.0.9' ? " FORCE" : " USE")
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:6435: . " INDEX(`$sel_stmt->{index}`)")
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-6436- : '')
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-6460- if ( $sel_stmt->{index} && $src->{info}->{keys}->{$sel_stmt->{index}}->{cols} ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver:6461: $index_cols = join(",",map { "`$_`" } @{$src->{info}->{keys}->{$sel_stmt->{index}}->{cols}});
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-archiver-6462- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-config-diff-5177- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-config-diff:5178: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-config-diff-5179- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-config-diff-5193- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-config-diff:5194: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-config-diff-5195- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-config-diff-5203- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-config-diff:5204: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-config-diff-5205- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-2081- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger:2082: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-2083-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-2128- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger:2129: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger:2130: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-2131- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-4241- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger:4242: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-4243- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-4257- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger:4258: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-4259- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-4267- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger:4268: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-4269- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-4966- = $body
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger:4967: =~ m{^(RECORD|TABLE) LOCKS? (?:space id \d+ page no \d+ n bits \d+ index `?$n`? of )?table `$n(?:/|`\.`)$n`.*?trx id $t lock.mode (\S+)}m;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-deadlock-logger-4968- if ( $hash->{txn_id} ) {
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-diskstats-4775- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-diskstats:4776: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-diskstats-4777- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-diskstats-4791- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-diskstats:4792: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-diskstats-4793- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-diskstats-4801- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-diskstats:4802: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-diskstats-4803- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-124- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:125: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-126-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-173- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:174: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:175: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-176- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-349- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:350: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-351-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-552-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:553: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-554-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-661- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:662: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-663-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-2280- . ' FROM ' . $args{tbl_name}
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:2281: . ($key_exists ? " FORCE INDEX (`$name`)" : '')
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-2282- . ' WHERE ';
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-2671- $ck_cols,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:2672: join(',', map { "`$_`" }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-2673- @{$keys->[$i]->{real_cols}})
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-3411- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:3412: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-3413- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-4845- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:4846: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-4847- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-4861- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:4862: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-4863- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-4871- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:4872: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-4873- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-5241- . ($args{is_fk} ? ' DROP FOREIGN KEY ' : ' DROP INDEX ')
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:5242: . "`$dupe->{key}`;\n";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-5243- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-5247- print "# To shorten this duplicate clustered index, execute:\n"
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:5248: . 'ALTER TABLE '.$q->quote($db, $tbl)." DROP INDEX `$dupe->{key}`, "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker:5249: . "ADD INDEX `$dupe->{key}` ($dupe->{short_key});\n";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-duplicate-key-checker-5250- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-1676- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:1677: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-1678-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-1723- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:1724: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:1725: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-1726- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-1899- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:1900: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-1901-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-2102-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:2103: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-2104-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-2211- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:2212: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-2213-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-3559- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:3560: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-3561- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-3575- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:3576: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-3577- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-3585- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:3586: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-3587- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-4129- my $sth = $o->get('tbllike')
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:4130: ? $dbh->prepare("SHOW TABLE$sta FROM `$database` LIKE ?")
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:4131: : $dbh->prepare("SHOW TABLE$sta FROM `$database`");
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-4132-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-4182- . " FROM INFORMATION_SCHEMA.ROUTINES "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:4183: . " WHERE ROUTINE_SCHEMA = '$database' "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-4184- . " AND ROUTINE_TYPE = '$type'";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-4201- . " FROM INFORMATION_SCHEMA.TRIGGERS "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find:4202: . " WHERE EVENT_OBJECT_SCHEMA = '$database'";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-find-4203- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger-1233- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger:1234: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger-1235-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger-1280- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger:1281: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger:1282: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger-1283- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger-3746- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger:3747: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger-3748- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger-3762- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger:3763: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger-3764- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger-3772- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger:3773: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-fk-error-logger-3774- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-3351- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:3352: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-3353-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-3398- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:3399: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:3400: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-3401- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-3574- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:3575: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-3576-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-3777-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:3778: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-3779-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-3886- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:3887: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-3888-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-5465- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:5466: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-5467- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-5481- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:5482: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-5483- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-5491- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:5492: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-5493- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-5949- $dbh->{FetchHashKeyName} = 'NAME_lc';
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:5950: $dbh->do("USE `$db`");
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-5951-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-6110- if ( !$o->get('replace') ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:6111: my $sql = "SELECT 1 FROM $db_tbl WHERE $pk_col='$pk_val' LIMIT 1";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-6112- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-6169- . (@extra_cols ? ", " . join(', ', map { "$_=?" } @extra_cols) : "")
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:6170: . " WHERE $pk_col='$pk_val'";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-6171- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-6249- . " FROM $db_tbl "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:6250: . "WHERE $pk_col='$pk_val' "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-6251- . "LIMIT 1";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-6393- $dbh->{FetchHashKeyName} = 'NAME_lc';
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat:6394: $dbh->do("USE `$db`");
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-heartbeat-6395-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-575- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:576: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-577-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-622- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:623: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:624: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-625- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-3138- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:3139: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-3140-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-3341-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:3342: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-3343-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-3450- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:3451: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-3452-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4189- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:4190: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4191- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4878- my $insert_index_sth = $dbh->prepare(
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:4879: "INSERT INTO `$db`.`indexes` (db, tbl, idx, cnt) VALUES (?, ?, ?, ?) "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4880- . "ON DUPLICATE KEY UPDATE cnt = cnt + ?");
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4891- my $insert_tbl_sth = $dbh->prepare(
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:4892: "INSERT INTO `$db`.`tables` (db, tbl, cnt) VALUES (?, ?, ?) "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4893- . "ON DUPLICATE KEY UPDATE cnt = cnt + ?");
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4902- my $insert_query_sth = $dbh->prepare(
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:4903: "INSERT IGNORE INTO `$db`.`queries` (query_id, fingerprint, sample) "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4904- . " VALUES (CONV(?, 16, 10), ?, ?)");
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4912- my $insert_index_usage_sth = $dbh->prepare(
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:4913: "INSERT INTO `$db`.`index_usage` (query_id, db, tbl, idx, cnt) "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4914- . "VALUES (CONV(?, 16, 10), ?, ?, ?, ?) "
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4930- my $insert_index_alt_sth = $dbh->prepare(
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:4931: "INSERT INTO `$db`.`index_alternatives` "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-4932- . "(query_id, db, tbl, idx, alt_idx, cnt) "
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-6243- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:6244: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-6245- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-6259- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:6260: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-6261- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-6269- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:6270: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-6271- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-7006- next unless $ident =~ m/^view/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage:7007: my $sql = "CREATE VIEW `$ident` AS $magic->{$ident}";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-index-usage-7008- PTDEBUG && _d($dbh, $sql);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-2964- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill:2965: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-2966-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-3167-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill:3168: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-3169-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-3276- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill:3277: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-3278-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-4672- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill:4673: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-4674-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-4719- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill:4720: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill:4721: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-4722- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-6670- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill:6671: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-6672- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-6686- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill:6687: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-6688- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-6696- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill:6697: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-6698- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-7456- POSIX::setsid() or die "Cannot start a new session: $OS_ERROR";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill:7457: my $retval = system($cmd);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-kill-7458- $retval = $retval >> 8;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-2841- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:2842: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-2843-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-2890- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:2891: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:2892: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-2893- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-3037- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:3038: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-3039- type => $cmp,
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-3124- scols => \@r_scols,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:3125: where => $result,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-3126- };
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-3332- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:3333: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-3334-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-3535-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:3536: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-3537-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-3644- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:3645: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-3646-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-5566-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:5567: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-5568- my $tbl_struct = $tbl->{tbl_struct};
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-5695-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:5696: my $from = "$tbl->{name} FORCE INDEX(`$index`)";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-5697- my $order_by = join(', ', map {$q->quote($_)} @{$index_cols});
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-5789- from => $from,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:5790: where => $where,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-5791- boundaries => $asc->{boundaries},
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-5983-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:5984: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-5985-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-5988- tbl => $tbl,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:5989: where => $where,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-5990- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-6104- my $sql = "SHOW INDEXES FROM $tbl->{name} "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:6105: . "WHERE Key_name = '$index'";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-6106- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-8027- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:8028: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-8029- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-8043- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:8044: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-8045- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-8053- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:8054: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-8055- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10368- . " 'No, the desired unique index contains duplicated values. There will be data loss'\n"
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:10369: . ") AS IsThereUniqueness FROM `$tbl->{db}`.`$tbl->{tbl}`;\n\n";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10370- $msg .= $sql;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10538- # would match if this regex was used like /.$re/,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:10539: # or even more tellingly, would match on "``" =~ /`$re`/
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10540- $quoted_ident_character+ # One or more characters
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:10541: (?:``$quoted_ident_character*)* # possibly followed by `` and
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10542- # more characters, zero or more times
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10543- |$quoted_ident_character* # OR, zero or more characters
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:10544: (?:``$quoted_ident_character* )+ # Followed by `` and maybe more
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10545- # characters, one or more times.
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10553-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:10554: my $table_ident = qr/$unquoted_ident|`$quoted_ident`|"$ansi_quotes_ident"/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10555-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10717- # Limit constraint name to 64 characters
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:10718: $sql =~ s/CONSTRAINT `([^`]{1,64})[^`]*` (.*)/ CONSTRAINT `$1` $2/gm;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10719-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10976- . "FROM information_schema.key_column_usage "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:10977: . "WHERE referenced_table_schema='$tbl->{db}' "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-10978- . "AND referenced_table_name='$tbl->{tbl}'";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11145-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11146: $constraint =~ s/CONSTRAINT `$fk`/CONSTRAINT `$new_fk`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11147-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11148: my $sql = "DROP FOREIGN KEY `$fk`, "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11149- . "ADD $constraint";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11294- my $delete_trigger
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11295: = "CREATE TRIGGER `${prefix}_del` AFTER DELETE ON $orig_tbl->{name} "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11296- . "FOR EACH ROW "
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11304- my $insert_trigger
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11305: = "CREATE TRIGGER `${prefix}_ins` AFTER INSERT ON $orig_tbl->{name} "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11306- . "FOR EACH ROW "
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11319- my $update_trigger
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11320: = "CREATE TRIGGER `${prefix}_upd` AFTER UPDATE ON $orig_tbl->{name} "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11321- . "FOR EACH ROW "
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11382- $definer =~ s/@/`@`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11383: $definer = "`$definer`" ;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11384-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11389- my $sql = "CREATE DEFINER=$definer "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11390: . "TRIGGER `$new_tbl->{db}`.`$tmp_trigger_name` "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11391- . "$orig_trigger->{action_timing} $orig_trigger->{event_manipulation} ON $new_tbl->{tbl}\n"
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11402- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11403: $dbh->do("DROP TRIGGER IF EXISTS `$tmp_trigger_name`");
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11404- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11484- $definer =~ s/@/`@`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11485: $definer = "`$definer`" ;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11486-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11487- my $sqls = [];
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11488: push @$sqls, "LOCK TABLES `$args{db}`.`$args{new_tbl}` WRITE, `$args{db}`. `$args{orig_tbl}` WRITE;";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11489- push @$sqls, '/*!50003 SET @saved_sql_mode = @@sql_mode */';
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11497-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11498: push @$sqls, "DROP TRIGGER IF EXISTS `$args{db}`.`$trigger->{trigger_name}` " if ! $args{duplicate_trigger};
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11499-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11500- push @$sqls, "CREATE DEFINER=$definer "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change:11501: . "TRIGGER `$args{db}`.`$trigger->{trigger_name}$suffix` "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-online-schema-change-11502- . "$trigger->{action_timing} $trigger->{event_manipulation} ON $args{new_tbl}\n"
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-1243- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:1244: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-1245-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-1290- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:1291: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:1292: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-1293- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-5865- my $attrib = $args{attrib};
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:5866: my $where = $args{where};
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-5867-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-6810- eval {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:6811: my $mem = `ps -o rss,vsz -p $PID 2>&1`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-6812- ( $rss, $vsz ) = $mem =~ m/(\d+)/g;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-7135- $vals{variance_to_mean} = do {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:7136: my $query_time = $ea->metrics(where => $item, attrib => 'Query_time');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-7137- $query_time->{stddev}**2 / ($query_time->{avg} || 1)
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-7374- my $samp_query = $sample->{arg} || '';
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:7375: my $query_time = $ea->metrics(where => $item, attrib => 'Query_time');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-7376-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-7762- $tables .= '# SHOW TABLE STATUS'
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:7763: . ($db ? " FROM `$db`" : '')
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-7764- . " LIKE '$tbl'${mark}\n";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-8097- attrib => $attrib,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:8098: where => $item,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-8099- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-8158- = 'SHOW TABLE STATUS'
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:8159: . ($db ? " FROM `$db`" : '')
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-8160- . " LIKE '$tbl'${mark}";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-8907- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:8908: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-8909-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-9110-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:9111: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-9112-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-9219- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:9220: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-9221-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-12962- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:12963: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-12964- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-12978- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:12979: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-12980- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-12988- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:12989: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-12990- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-14884- attrib => $attrib,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest:14885: where => $item,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-query-digest-14886- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-show-grants-1946- if ( scalar @all_hosts ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-show-grants:1947: my $where = join(' OR ', map { "User='$_'" } @all_hosts);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-show-grants-1948- my $sql = "SELECT DISTINCT User, Host FROM mysql.user WHERE $where "
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-show-grants-2094- "DROP USER $user_host;",
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-show-grants:2095: "DELETE FROM `mysql`.`user` WHERE `User`='$u->{User}' AND `Host`='$u->{Host}';",
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-show-grants-2096- ), "\n";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-show-grants-2162- foreach my $u ( @$users ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-show-grants:2163: my $user_host = "`$u->{User}`\@`$u->{Host}`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-show-grants-2164- warn "> user_host: $user_host";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-delay-4063- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-delay:4064: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-delay-4065- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-delay-4079- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-delay:4080: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-delay-4081- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-delay-4089- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-delay:4090: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-delay-4091- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-find-4067- if ($packed) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-find:4068: $hostname = gethostbyaddr($packed, AF_INET);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-find-4069- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart-126- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart:127: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart-128-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart-173- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart:174: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart:175: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart-176- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart-4791- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart:4792: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart-4793- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart-4807- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart:4808: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart-4809- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart-4817- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart:4818: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-slave-restart-4819- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-1241- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:1242: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-1243- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-1257- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:1258: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-1259- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-1267- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:1268: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-1269- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4090- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:4091: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4092-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4137- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:4138: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:4139: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4140- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4507- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:4508: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4509-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4710-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:4711: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4712-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4819- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:4820: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4821-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4910- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:4911: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4912- type => $cmp,
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4997- scols => \@r_scols,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:4998: where => $result,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-4999- };
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6368-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:6369: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6370- my $tbl_struct = $tbl->{tbl_struct};
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6494-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:6495: my $from = "$tbl->{name} FORCE INDEX(`$index`)";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6496- my $order_by = join(', ', map {$q->quote($_)} @{$index_cols});
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6588- from => $from,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:6589: where => $where,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6590- boundaries => $asc->{boundaries},
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6782-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:6783: my $where = $o->has('where') ? $o->get('where') : '';
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6784-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6787- tbl => $tbl,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:6788: where => $where,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6789- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6903- my $sql = "SHOW INDEXES FROM $tbl->{name} "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:6904: . "WHERE Key_name = '$index'";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-6905- PTDEBUG && _d($sql);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-7153- my $o = $self->{OptionParser};
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:7154: my $where = $o->has('where') ? $o->get('where') : undef;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-7155-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-7737- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:7738: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-7739- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-11056- tbl => $tbl,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:11057: where => $o->get('where'),
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-11058- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-11422- repl_table => $repl_table,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:11423: where => "db='$tbl->{db}' AND tbl='$tbl->{tbl}'",
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-11424- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-12506- my $sql = "SELECT MAX(chunk) FROM $repl_table "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum:12507: . "WHERE db='$tbl->{db}' AND tbl='$tbl->{tbl}' "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-checksum-12508- . "AND master_crc IS NOT NULL";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-1900- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:1901: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-1902-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-1949- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:1950: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:1951: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-1952- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-2883- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:2884: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-2885-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3086-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:3087: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3088-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3195- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:3196: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3197-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3577- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:3578: my %in_where = map { $_ => 1 } @$cols;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:3579: my $where = $self->make_where_clause($row, $cols);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3580- my @cols;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3625- if ( my $dbh = $self->{fetch_back} ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:3626: my $where = $self->make_where_clause($row, $cols);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3627- my $sql = $self->make_fetch_back_query($where);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3712- && $tbl_struct->{type_for}->{$col} =~ m/b(?:lob|inary)/ ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:3713: $col = "IF(BINARY(`$col`)='', '', CONCAT('0x', HEX(`$col`))) AS `$col`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3714- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3715- else {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:3716: $col = "`$col`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3717- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3975- die "Error calculating chunk start and end points for table "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:3976: . "`$args{tbl_struct}->{name}` on column `$args{chunk_col}` "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-3977- . "with min/max values "
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-4269- my ($dbh, $db, $tbl, $col) = @args{@required_args};
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:4270: my $where = $args{where};
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-4271- my $q = $self->{Quoter};
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-4327- $query =~ s!/\*PROGRESS_COMMENT\*/!$comment!;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:4328: my $where = "WHERE (" . $args{chunks}->[$args{chunk_num}] . ')';
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-4329- if ( $args{where} && grep { $_ } @{$args{where}} ) {
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-4337- PTDEBUG && _d('Parameters:',
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:4338: Dumper({WHERE => $where, DB_TBL => $db_tbl, INDEX_HINT => $index_hint}));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-4339- $query =~ s!/\*WHERE\*/! $where!;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5224- index_hint => $self->{index_hint},
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:5225: where => [ $args{where} ],
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5226- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5428- eval {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:5429: my $sql = "SHOW TABLE STATUS FROM `$db` LIKE "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5430- . $self->{Quoter}->literal_like($tbl);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5526- else {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:5527: my $where = $self->__get_boundaries(%args);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5528- return $self->{TableChunker}->inject_chunks(
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5534- index_hint => $self->{index_hint},
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:5535: where => [ $args{where} ],
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5536- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5567- . " because MySQL chose "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:5568: . ($explain_index ? "the `$explain_index`" : 'no') . ' index'
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:5569: . " instead of the `$s->{index}` index";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5570- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5586-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:5587: my $where = $lb ? "($lb AND $ub)" : $ub;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-5588-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-6008- eval {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:6009: $src->{dbh}->do("USE `$src->{db}`");
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:6010: $dst->{dbh}->do("USE `$dst->{db}`");
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-6011- };
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-6042- table => $src->{tbl},
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:6043: where => $args{where},
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-6044- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-6047- table => $dst->{tbl},
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:6048: where => $args{where},
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-6049- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-6443- foreach my $cmp ( qw(< <= >= >) ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:6444: $cmp_where = $self->generate_cmp_where(
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-6445- type => $cmp,
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-6530- scols => \@r_scols,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:6531: where => $result,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-6532- };
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-7825- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:7826: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-7827- if ( $self->database_is_allowed($db)
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-9692- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:9693: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-9694- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-9708- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:9709: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-9710- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-9718- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:9719: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-9720- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-10802- callback => $callback,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:10803: where => $args{where} || $o->get('where'),
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-10804- bidirectional => $o->get('bidirectional'),
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-11441- if ( $cmp eq 'equals' || $cmp eq 'matches' ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:11442: $err = "neither `$col` value $cmp $val";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-11443- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-11444- else {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:11445: $err = "`$col` values are the same"
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-11446- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-11448- elsif ( $res == FAILED_THRESHOLD ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:11449: $err = "`$col` values do not differ by the threhold, $thr."
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-11450- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-11457- $action = undef; # skip change in case we just warn
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:11458: my $where = $ch->make_where_clause($lr, $syncer->key_cols());
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-11459- $err = "# Cannot resolve conflict WHERE $where: $err\n";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-11642- . "FROM information_schema.key_column_usage "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync:11643: . "WHERE constraint_schema='$tbl->{db}' "
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-sync-11644- . "AND referenced_table_name='$tbl->{tbl}'";
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-5080- tables => $tables,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:5081: where => $query_struct->{where},
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-5082- );
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-5218- tables => $tables,
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:5219: where => $table->{join}->{where},
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-5220- clause => 'JOIN condition', # just for debugging
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-5662- if ( $db ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:5663: $sql = "USE `$db`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-5664- PTDEBUG && _d($dbh, $sql);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-5715- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:5716: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-5717-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-6591- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:6592: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-6593-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-6638- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:6639: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:6640: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-6641- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-6814- my @cols = map { $_ =~ m/`([^`]+)`/ } @defs;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:6815: PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-6816-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-7017-
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:7018: PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-7019-
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-7126- $val =~ s/""/"/g;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:7127: return "`$val`";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-7128-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-7201- $db =~ s/^`//; # strip leading `
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage:7202: $db =~ s/`$//; # and trailing `
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-table-usage-7203- PTDEBUG && _d('New db:', $db);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-1240- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade:1241: return join('.', map { '`' . $_ . '`' } @vals);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-1242-}
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-1287- }
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade:1288: $db = "`$db`" if $db && $db !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade:1289: $tbl = "`$tbl`" if $tbl && $tbl !~ m/^`/;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-1290- return $db ? "$db.$tbl" : $tbl;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-4552- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade:4553: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-4554- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-4568- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade:4569: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-4570- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-4578- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade:4579: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-4580- $release .= " ($code_name)" if $code_name;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-5723- PTDEBUG && _d('New current db:', $db);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade:5724: $host->dbh->do("USE `$db`");
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-5725- $host->{current_db} = $db;
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-6418- PTDEBUG && _d('New current db:', $db);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade:6419: print { $self->_query_fh } "use `$db`;\n";
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-upgrade-6420- $self->current_database($db);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-variable-advisor-4970- chomp(my $lsb_release
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-variable-advisor:4971: = `which lsb_release 2>/dev/null | awk '{print \$1}'` || '');
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-variable-advisor-4972- PTDEBUG && _d('lsb_release:', $lsb_release);
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-variable-advisor-4986- elsif ( $lsb_release ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-variable-advisor:4987: $release = `$lsb_release -ds`;
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-variable-advisor-4988- }
##############################################
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-variable-advisor-4996- if ( -f "/etc/apt/sources.list" ) {
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-variable-advisor:4997: chomp(my $code_name = `awk '/^deb/ {print \$3}' /etc/apt/sources.list | awk -F/ '{print \$1}'| awk 'BEGIN {FS="|"} {print \$1}' | sort | uniq -c | sort -rn | head -n1 | awk '{print \$2}'`);
percona-toolkit-3.2.1/.pc/00-fix-perl-shebang.diff/bin/pt-variable-advisor-4998- $release .= " ($code_name)" if $code_name;