Lines Matching refs:_d
99 sub _d {
814 PTDEBUG && _d('Version check file', $file, 'in', $dir);
818 PTDEBUG && _d('Version check file', $file, 'in', $ENV{PWD});
834 PTDEBUG && _d('FindBin::Bin:', $FindBin::Bin);
843 PTDEBUG && _d("$FindBin::Bin/../.bzr disables --version-check");
862 PTDEBUG && _d(scalar @$instances_to_check, 'instances to check');
868 PTDEBUG && _d($EVAL_ERROR);
869 PTDEBUG && _d("SSL not available, won't run version_check");
872 PTDEBUG && _d('Using', $protocol);
882 PTDEBUG && _d('Advice:', Dumper($advice));
894 PTDEBUG && _d('Version check failed:', $EVAL_ERROR);
906 PTDEBUG && _d('Error updating version check file:', $EVAL_ERROR);
927 PTDEBUG && _d('Version check file', $vc_file, 'does not exist;',
934 PTDEBUG && _d('Version check file', $vc_file, 'contents:', $file_contents);
942 PTDEBUG && _d('Intsance', $instance->{id}, 'last checked',
949 PTDEBUG && _d('Time to check', Dumper($instance));
963 PTDEBUG && _d('Updating last check time:', $now);
984 PTDEBUG && _d('Updated:', $id, Dumper($all_instances{$id}));
999 PTDEBUG && _d($sql);
1002 PTDEBUG && _d($EVAL_ERROR);
1004 PTDEBUG && _d($sql);
1007 PTDEBUG && _d($EVAL_ERROR);
1012 PTDEBUG && _d($sql);
1014 PTDEBUG && _d('port:', $port);
1020 PTDEBUG && _d('MySQL instance:', $id, $name, Dumper($dsn));
1078 PTDEBUG && _d('Server response:', Dumper($response));
1109 PTDEBUG && _d('Client response:', Dumper($client_response));
1112 PTDEBUG && _d('Server suggestions:', Dumper($response));
1179 PTDEBUG && _d('Items:', Dumper(\%items));
1195 PTDEBUG && _d('Invalid type:', $item->{type});
1223 PTDEBUG && _d('Error getting version for', Dumper($item), $EVAL_ERROR);
1238 PTDEBUG && _d('platform:', $platform);
1243 PTDEBUG && _d('lsb_release:', $lsb_release);
1295 PTDEBUG && _d('Failed to get the release, using platform');
1302 PTDEBUG && _d('OS version =', $release);
1312 PTDEBUG && _d('Perl version', $version);
1323 PTDEBUG && _d('Perl version for', $var, '=', $version);
1342 PTDEBUG && _d('Cannot check', $item,
1359 PTDEBUG && _d($sql);
1366 PTDEBUG && _d('MySQL version for', $item->{item}, '=', $version,
1376 sub _d {
1429 PTDEBUG && _d('DSN option:',
1447 PTDEBUG && _d('Setting', $prop, 'property');
1456 PTDEBUG && _d('No DSN to parse');
1459 PTDEBUG && _d('Parsing', $dsn);
1472 PTDEBUG && _d('Interpreting', $dsn_part, 'as h=', $dsn_part);
1478 PTDEBUG && _d('Finding value for', $key);
1484 PTDEBUG && _d('Copying value for', $key, 'from previous DSN');
1488 PTDEBUG && _d('Copying value for', $key, 'from defaults');
1519 PTDEBUG && _d('DSN string made from options:', $dsn_string);
1572 PTDEBUG && _d($dsn);
1620 PTDEBUG && _d($cxn_string, ' ', $user, ' ', $pass,
1636 PTDEBUG && _d('Going to try again without utf8 support');
1650 PTDEBUG && _d($dbh, $sql);
1655 PTDEBUG && _d('Enabling charset for STDOUT');
1670 PTDEBUG && _d($dbh, $sql);
1680 PTDEBUG && _d($dbh, $sql);
1703 PTDEBUG && _d($msg);
1711 PTDEBUG && _d('DBH info: ',
1786 PTDEBUG && _d($e);
1790 PTDEBUG && _d('Not setting default var', $var,
1796 PTDEBUG && _d('Not setting var', $var, 'because its value',
1802 PTDEBUG && _d($dbh, $sql);
1821 sub _d {
1935 PTDEBUG && _d('Parsing DSN OPTIONS');
1979 PTDEBUG && _d($self->{version});
2016 PTDEBUG && _d('Option rule:', $para);
2025 PTDEBUG && _d($para);
2044 PTDEBUG && _d('Option has no attributes');
2052 PTDEBUG && _d('Short help:', $para);
2091 PTDEBUG && _d('Parsing opt spec:',
2104 PTDEBUG && _d('Long opt', $long, 'looks like short opt');
2131 PTDEBUG && _d($long, 'type:', $type);
2138 PTDEBUG && _d($long, 'default:', $def);
2147 PTDEBUG && _d('Deferring check of disables rule for', $opt, $dis);
2153 PTDEBUG && _d('Parsing rule:', $opt);
2161 PTDEBUG && _d(@participants, 'are mutually exclusive');
2166 PTDEBUG && _d(@participants, 'require at least one');
2171 PTDEBUG && _d($participants[0], 'defaults to', $participants[1]);
2185 PTDEBUG && _d("Strict mode disabled by rule");
2195 PTDEBUG && _d('Option', $long, 'disables', @participants);
2209 PTDEBUG && _d('Participants for', $str, ':', @participants);
2232 PTDEBUG && _d('Default val for', $long, ':', $defaults{$long});
2281 PTDEBUG && _d('Got option', $long, '=', $val);
2319 _d($EVAL_ERROR);
2386 PTDEBUG && _d('Unset options', @disable_opts,
2435 PTDEBUG && _d('Temporarily failed to parse', $long);
2459 PTDEBUG && _d('Parsing option', $opt->{long}, 'as a time value');
2464 PTDEBUG && _d('No suffix given; using', $suffix, 'for',
2473 PTDEBUG && _d('Setting option', $opt->{long}, 'to', $val);
2480 PTDEBUG && _d('Parsing option', $opt->{long}, 'as a DSN');
2484 PTDEBUG && _d($opt->{long}, 'DSN copies from', $from_key, 'DSN');
2489 PTDEBUG && _d('Cannot parse', $opt->{long}, 'until',
2506 PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');
2516 PTDEBUG && _d('Nothing to validate for option',
2590 PTDEBUG && _d("Getting description and usage from SYNOPSIS in", $file);
2594 PTDEBUG && _d("Description:", $self->{description},
2817 PTDEBUG && _d('NULL size for', $opt->{long});
2827 PTDEBUG && _d('Setting option', $opt->{y},
2851 PTDEBUG && _d("Parsing SYNOPSIS in", $file);
2864 PTDEBUG && _d("Raw SYNOPSIS text:", @synop);
2918 PTDEBUG && _d('--set-vars:', Dumper(\%vars));
2922 sub _d {
3685 PTDEBUG && _d($dbh, 'Connected dbh to', $self->{hostname},$self->{dsn_name});
3693 PTDEBUG && _d($dbh, 'Already set dbh');
3697 PTDEBUG && _d($dbh, 'Setting dbh');
3702 PTDEBUG && _d($dbh, $sql);
3704 PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
3710 PTDEBUG && _d($dbh, 'Setting InactiveDestroy=1 in parent');
3761 PTDEBUG && _d("Got cluster wsrep_local_index: ",$wsrep_local_index);
3765 PTDEBUG && _d($cxn->name, $sql);
3771 PTDEBUG && _d($sql);
3774 PTDEBUG && _d("Generated unique id for cluster:", $unique_id);
3789 PTDEBUG && _d($sql); #don't invoke name() if it's not a Cxn!
3793 PTDEBUG && _d($cxn->name, $sql);
3805 PTDEBUG && _d("Removing duplicates from ", join(" ", map { $_->name } @cxns));
3811 PTDEBUG && _d('Server ID for ', $cxn->name, ': ', $id);
3817 PTDEBUG && _d("Removing ", $cxn->name,
3828 PTDEBUG && _d('Destroying cxn');
3831 PTDEBUG && _d($self->{dbh}, 'Not disconnecting dbh in parent');
3837 PTDEBUG && _d($self->{dbh}, 'Disconnecting dbh on', $self->{hostname},
3845 sub _d {
3883 PTDEBUG && _d($cxn->name, $sql);
3892 PTDEBUG && _d($cxn->name, $sql);
3894 PTDEBUG && _d(Dumper($row));
3906 PTDEBUG && _d($cxn1->name, $cxn2->name, $sql);
3926 PTDEBUG && _d($sql);
3928 PTDEBUG && _d("Cluster nodes found: ", $addresses);
3951 PTDEBUG && _d('Connected to', $dp->as_string($node_dsn));
3964 PTDEBUG && _d("Removing duplicates nodes from ", join(" ", map { $_->name } @cxns));
3969 PTDEBUG && _d('Server ID for ', $cxn->name, ': ', $id);
3975 PTDEBUG && _d("Removing ", $cxn->name,
4046 sub _d {
4145 PTDEBUG && _d('Serializing', Dumper(\@args));
4161 PTDEBUG && _d('Serialized: <', $string, '>');
4167 PTDEBUG && _d('Deserializing <', $string, '>');
4185 PTDEBUG && _d($n_empty_strings, 'empty strings');
4189 PTDEBUG && _d('Last value is an empty string');
4193 PTDEBUG && _d('Deserialized', Dumper(\@parts));
4197 sub _d {
4293 PTDEBUG && _d($self->version, 'normalizes to', $result);
4326 PTDEBUG && _d("VersionParser got a dbh, trying to get the version");
4374 PTDEBUG && _d("InnoDB support:", $innodb->{support});
4386 PTDEBUG && _d("InnoDB version:", $innodb_version);
4390 sub _d {
4457 PTDEBUG && _d($new_sql_mode);
4459 PTDEBUG && $EVAL_ERROR && _d($EVAL_ERROR);
4462 PTDEBUG && _d($dbh, $use_sql);
4466 PTDEBUG && _d($show_sql);
4470 PTDEBUG && _d($old_sql_mode);
4476 PTDEBUG && _d($old_sql_mode);
4508 PTDEBUG && _d('Table cols:', join(', ', map { "`$_`" } @cols));
4587 PTDEBUG && _d('Indexes sorted best-first:', join(', ', @indexes));
4605 PTDEBUG && _d('Best index found is', $best);
4614 PTDEBUG && _d($sql);
4618 PTDEBUG && _d('possible_keys =', $expl->{possible_keys});
4622 PTDEBUG && _d('MySQL chose', $expl->{key});
4624 PTDEBUG && _d('Before deduping:', join(', ', @candidates));
4628 PTDEBUG && _d('Final list:', join(', ', @candidates));
4632 PTDEBUG && _d('No keys in possible_keys');
4646 PTDEBUG && _d('Checking', $db_tbl);
4652 PTDEBUG && _d($sql);
4658 PTDEBUG && _d($e);
4663 PTDEBUG && _d('Table does not exist');
4667 PTDEBUG && _d('Table', $db, $tbl, 'exists');
4675 PTDEBUG && _d('Storage engine:', $engine);
4691 PTDEBUG && _d('Parsed key:', $key_ddl);
4711 PTDEBUG && _d( $name, 'key cols:', join(', ', map { "`$_`" } @cols));
4733 PTDEBUG && $clustered_key && _d('This key is the clustered key');
4790 PTDEBUG && _d($sql, @params);
4794 PTDEBUG && _d($EVAL_ERROR);
4823 sub _d {
4875 PTDEBUG && _d('Will ascend index', $index);
4879 PTDEBUG && _d('Ascending only first column');
4884 PTDEBUG && _d('Ascending only first', $n, 'columns');
4887 PTDEBUG && _d('Will ascend columns', join(', ', @asc_cols));
4898 PTDEBUG && _d('Will ascend, in ordinal position:', join(', ', @asc_slice));
5023 PTDEBUG && _d('Columns needed for DELETE:', join(', ', @del_cols));
5033 PTDEBUG && _d('Ordinals needed for DELETE:', join(', ', @del_slice));
5089 sub _d {
5180 PTDEBUG && _d('Found slave:', $dp->as_string($dsn));
5184 …PTDEBUG && _d("Using slave user ".$o->get('slave-user')." on ".$slave_dsn->{h}.":".$slave_dsn->{P}…
5188 PTDEBUG && _d("Slave password set");
5203 PTDEBUG && _d('Not getting to slaves');
5219 PTDEBUG && _d('Port number is non-standard; using only hosts method');
5237 PTDEBUG && _d('Recursion methods:', @$methods);
5239 PTDEBUG && _d('Not recursing to slaves');
5246 PTDEBUG && _d("Using slave user $slave_user on ".$slave_dsn->{h}.":".$slave_dsn->{P});
5250 PTDEBUG && _d("Slave password set");
5257 PTDEBUG && _d('Connected to', $dp->as_string($slave_dsn));
5266 PTDEBUG && _d($sql);
5268 PTDEBUG && _d('Working on server ID', $id);
5274 PTDEBUG && _d('Server ID seen, or not what master said');
5290 PTDEBUG && _d('Recursing from',
5301 PTDEBUG && _d('Looking for slaves on', $dsn_parser->as_string($dsn),
5308 PTDEBUG && _d('Finding slaves with', $find_slaves);
5313 PTDEBUG && _d('Found', scalar(@slaves), 'slaves');
5351 PTDEBUG && _d($dbh, $sql);
5355 PTDEBUG && _d('Found some SHOW SLAVE HOSTS info');
5379 PTDEBUG && _d($dbh, $sql);
5390 PTDEBUG && _d('Retrying SHOW GRANTS without host; error:',
5394 PTDEBUG && _d($sql);
5409 PTDEBUG && _d($dbh, $sql);
5470 PTDEBUG && _d($dbh, 'SHOW SLAVE STATUS');
5511 PTDEBUG && _d('This server returns nothing for SHOW SLAVE STATUS');
5520 PTDEBUG && _d('Server on dbh', $dbh, 'is not a master');
5526 PTDEBUG && _d($dbh, 'SHOW MASTER STATUS');
5529 PTDEBUG && _d(
5534 PTDEBUG && _d('Server on dbh', $dbh, 'does not seem to be a master');
5567 PTDEBUG && _d($slave_dbh, $sql);
5573 PTDEBUG && _d('Result of waiting:', $result);
5574 PTDEBUG && _d("Waited", $waited, "seconds");
5577 PTDEBUG && _d('Not waiting: this server is not a master');
5590 PTDEBUG && _d($dbh, $sth->{Statement});
5599 PTDEBUG && _d($dbh, $sql);
5605 PTDEBUG && _d($dbh, $sth->{Statement});
5618 PTDEBUG && _d('Master position:', $self->pos_to_string($master_pos),
5623 PTDEBUG && _d('Waiting for slave to catch up to master');
5638 PTDEBUG && _d('Master position:',
5646 PTDEBUG && _d('Slave is caught up to master and stopped');
5654 PTDEBUG && _d("Slave is already caught up to master");
5697 PTDEBUG && _d($dbh, $sql);
5759 PTDEBUG && _d("Slave replication thread");
5764 PTDEBUG && _d("Special state:", $state);
5785 PTDEBUG && _d('Not system user');
5795 PTDEBUG && _d("Thread ID is a known replication thread ID");
5802 PTDEBUG && _d('Matches', $type, 'replication thread:',
5843 PTDEBUG && _d($dbh, $sql);
5871 PTDEBUG && _d('DSN table DSN:', $dsn_table_dsn);
5892 PTDEBUG && _d($sql);
5897 PTDEBUG && _d('DSN from DSN table:', $dsn_string);
5904 sub _d {
6018 PTDEBUG && _d('Row checksum:', $query);
6036 PTDEBUG && _d("Checksum strat:", Dumper(\%crc_args));
6057 PTDEBUG && _d('Chunk checksum:', $select);
6144 PTDEBUG && _d($sql);
6149 PTDEBUG && _d($func, 'cannot be used because', $1);
6152 PTDEBUG && _d('Chosen hash func:', $func);
6192 PTDEBUG && _d($sql, $type, $length);
6201 PTDEBUG && _d('crc_type:', $type, 'length:', $length);
6223 PTDEBUG && _d('Trying slice', $opt_slice);
6234 PTDEBUG && _d('Slice', $opt_slice, 'does not work');
6241 PTDEBUG && _d('Slice', $opt_slice, 'works');
6245 PTDEBUG && _d('No slice works');
6304 PTDEBUG && _d($sql);
6314 sub _d {
6459 PTDEBUG && _d('One nibble statement:', $nibble_sql);
6470 PTDEBUG && _d('Explain one nibble statement:', $explain_nibble_sql);
6493 PTDEBUG && _d('Ascend params:', Dumper($asc));
6507 PTDEBUG && _d('First lower boundary statement:', $first_lb_sql);
6520 PTDEBUG && _d('Resume lower boundary statement:', $resume_lb_sql);
6532 PTDEBUG && _d('Last upper boundary statement:', $last_ub_sql);
6543 PTDEBUG && _d('Upper boundary statement:', $ub_sql);
6556 PTDEBUG && _d('Nibble statement:', $nibble_sql);
6569 PTDEBUG && _d('Explain nibble statement:', $explain_nibble_sql);
6572 PTDEBUG && _d('Initial chunk size (LIMIT):', $limit);
6601 PTDEBUG && _d('Not ok to nibble');
6616 PTDEBUG && _d('init callback returned', $self->{oktonibble});
6623 PTDEBUG && _d('No first lower boundary, table must be empty');
6650 PTDEBUG && _d('Nibble:', $self->{nibble_sth}->{Statement}, 'params:',
6659 PTDEBUG && _d($self->{have_rows}, 'rows in nibble', $self->{nibbleno});
6666 PTDEBUG && _d('Row', $self->{rowno}, 'in nibble',$self->{nibbleno});
6671 PTDEBUG && _d('No rows in nibble or nibble skipped');
6680 PTDEBUG && _d('Done nibbling');
6697 PTDEBUG && _d('Set new nibble number:', $n);
6737 PTDEBUG && _d('Set new', $boundary, 'boundary:', Dumper($values));
6756 PTDEBUG && _d('Set new chunk size (LIMIT):', $limit);
6799 PTDEBUG && _d('One nibble:', $one_nibble ? 'yes' : 'no');
6804 PTDEBUG && _d('Resuming from one nibble table');
6833 PTDEBUG && _d('User wants to use index', $want_index);
6835 PTDEBUG && _d('Cannot use user index because it does not exist');
6843 PTDEBUG && _d('MySQL wants to use index', $args{mysql_index});
6851 PTDEBUG && _d('Will use wanted index');
6855 PTDEBUG && _d('Wanted index is a possible index');
6861 PTDEBUG && _d('Auto-selecting best index');
6874 PTDEBUG && _d('No PRIMARY or unique indexes;',
6894 PTDEBUG && _d('Best index:', $best_index);
6905 PTDEBUG && _d($sql);
6915 PTDEBUG && _d('Index', $index, 'cardinality:', $cardinality);
6929 PTDEBUG && _d($sql);
6931 PTDEBUG && _d(Dumper($expl));
6941 PTDEBUG && _d('Preparing statement handles');
6970 PTDEBUG && _d('First lower boundary:', Dumper($self->{first_lower}));
6977 PTDEBUG && _d($sth->{Statement}, 'params:', @ub);
6986 PTDEBUG && _d('Next lower boundary:', Dumper($self->{next_lower}));
6989 PTDEBUG && _d('At end of table, or no more boundaries to resume');
6993 PTDEBUG && _d('Last upper boundary:', Dumper($self->{last_upper}));
7003 PTDEBUG && _d('No more boundaries');
7016 PTDEBUG && _d('Infinite loop detected');
7041 PTDEBUG && _d('next_boundaries callback returned', $oktonibble);
7049 PTDEBUG && _d($self->{ub_sth}->{Statement}, 'params:',
7053 PTDEBUG && _d('Next boundary:', Dumper($boundary));
7061 PTDEBUG && _d('End of table boundary:', Dumper($boundary->[0]));
7070 PTDEBUG && _d('Last upper boundary:', Dumper($self->{upper}));
7100 PTDEBUG && _d('Finish', $key);
7107 sub _d {
7172 PTDEBUG && _d('Past lower statement:', $past_lower_sql);
7182 PTDEBUG && _d('Past lower statement:', $explain_past_lower_sql);
7189 PTDEBUG && _d('Past upper statement:', $past_upper_sql);
7199 PTDEBUG && _d('Past upper statement:', $explain_past_upper_sql);
7215 PTDEBUG && _d('Nibble past', @{$self->{past_nibbles}});
7241 PTDEBUG && _d('Preparing out-of-bound statement handles');
7261 PTDEBUG && _d('Nibbling values below lower boundary');
7269 PTDEBUG && _d('Nibbling values above upper boundary');
7282 PTDEBUG && _d('Done nibbling past boundaries');
7290 PTDEBUG && _d('Finish', $key);
7297 sub _d {
7353 PTDEBUG && _d('Starting daemon');
7371 PTDEBUG && _d('Forked child', $child_pid);
7389 PTDEBUG && _d('Redirecting STDIN to /dev/null');
7394 PTDEBUG && _d('Redirecting STDOUT and STDERR to', $log_file);
7405 PTDEBUG && _d('No log file and STDOUT is a terminal;',
7412 PTDEBUG && _d('No log file and STDERR is a terminal;',
7423 PTDEBUG && _d('Daemon running');
7473 PTDEBUG && _d('Checking if PID in', $pid_file, 'is running');
7476 PTDEBUG && _d('PID file', $pid_file, 'does not exist');
7493 PTDEBUG && _d('Checking if PID', $existing_pid, 'is running');
7533 PTDEBUG && _d('Removed PID file');
7536 PTDEBUG && _d('No PID to remove');
7551 sub _d {
7609 PTDEBUG && _d('Will resume from or after', $table);
7652 PTDEBUG && _d('Filter', $filter, 'value:', $db, $tbl);
7656 PTDEBUG && _d('Filter', $filter, 'value:', $obj);
7672 PTDEBUG && _d('Filter', $filter, 'value:', $filters{$filter});
7676 PTDEBUG && _d('Schema object filters:', Dumper(\%filters));
7687 PTDEBUG && _d('Will resume after',
7692 PTDEBUG && _d('Will resume after', $self->{resume}->{db});
7710 PTDEBUG && _d('Next schema object:',
7723 PTDEBUG && _d('No more files to iterate');
7730 PTDEBUG && _d('Getting next schema object from', $self->{file});
7746 PTDEBUG && _d('Table is a VIEW, skipping');
7775 PTDEBUG && _d('No more schema objects in', $self->{file});
7787 PTDEBUG && _d('Getting next schema object from dbh', $dbh);
7791 PTDEBUG && _d($sql);
7797 PTDEBUG && _d('Found', scalar @dbs, 'databases');
7804 PTDEBUG && _d('Next database:', $db);
7810 PTDEBUG && _d($sql);
7828 PTDEBUG && _d('Found', scalar @tbls, 'tables in database',$self->{db});
7838 PTDEBUG && _d("$table_name no longer exists");
7858 PTDEBUG && _d('No more tables in database', $self->{db});
7863 PTDEBUG && _d('No more databases');
7876 PTDEBUG && _d('Database', $db, 'is a system database, ignoring');
7881 PTDEBUG && _d('Database', $db, 'is in --ignore-databases list');
7887 PTDEBUG && _d('Database', $db, 'matches --ignore-databases-regex');
7893 PTDEBUG && _d('Database', $db, 'is not in --databases list, ignoring');
7899 PTDEBUG && _d('Database', $db, 'does not match --databases-regex, ignoring');
7929 PTDEBUG && _d('Table', $tbl, 'is in --ignore-tables list');
7935 PTDEBUG && _d('Table', $tbl, 'matches --ignore-tables-regex');
7941 PTDEBUG && _d('Table', $tbl, 'is not in --tables list, ignoring');
7947 PTDEBUG && _d('Table', $tbl, 'does not match --tables-regex, ignoring');
7955 PTDEBUG && _d('Table', $tbl, 'is only allowed in database',
7967 PTDEBUG && _d('No engine specified; allowing the table');
7976 PTDEBUG && _d('Engine', $engine, 'is in --ignore-databases list');
7982 PTDEBUG && _d('Engine', $engine, 'is not in --engines list, ignoring');
7995 PTDEBUG && _d('Resuming from db', $db);
8000 PTDEBUG && _d('Resuming after db', $db);
8016 PTDEBUG && _d('Resuming from table', $tbl);
8021 PTDEBUG && _d('Resuming after table', $tbl);
8029 sub _d {
8083 PTDEBUG && _d("Try", $tryno, "of", $tries);
8089 PTDEBUG && _d("Try code failed:", $EVAL_ERROR);
8095 PTDEBUG && _d("Calling wait code");
8100 PTDEBUG && _d("Try code succeeded");
8105 PTDEBUG && _d('Try code did not succeed');
8109 sub _d {
8324 PTDEBUG && _d('ts is now - N[shmd]:', $n);
8328 PTDEBUG && _d('ts is already a unix timestamp');
8332 PTDEBUG && _d('ts is MySQL slow log timestamp');
8337 PTDEBUG && _d('ts is properly formatted timestamp');
8342 PTDEBUG && _d('ts is MySQL expression');
8346 PTDEBUG && _d('Unknown ts type:', $val);
8353 PTDEBUG && _d($checksum, 'checksum for', $val);
8462 sub _d {
8609 sub _d {
8705 PTDEBUG && _d('Checking slave lag');
8708 PTDEBUG && _d($lagged_slaves[$i]->{cxn}->name(),
8726 PTDEBUG && _d(scalar @lagged_slaves, 'slaves are lagging, worst:',
8736 PTDEBUG && _d('Calling sleep callback');
8741 PTDEBUG && _d('All slaves caught up');
8745 sub _d {
8873 PTDEBUG && _d($dbh, $sql);
8917 PTDEBUG && _d("Parsing config output");
8975 PTDEBUG && _d('show variables format');
8982 PTDEBUG && _d('mysqld format');
8986 PTDEBUG && _d('my_print_defaults format');
8990 PTDEBUG && _d('option file format');
9032 PTDEBUG && _d('Option files:', @opt_files);
9035 PTDEBUG && _d("mysqld help output doesn't list option files");
9055 PTDEBUG && _d("mysqld help output doesn't list vars and vals");
9130 PTDEBUG && _d("Line <", $line, "> didn't match $re");
9179 PTDEBUG && _d("Duplicate var:", $var);
9185 PTDEBUG && _d("Var:", $var, "val:", $val);
9278 PTDEBUG && _d("Reading", $file);
9290 PTDEBUG && _d('MySQL version', $version);
9365 sub _d {
9402 PTDEBUG && _d('Parsing spec for max thresholds');
9412 PTDEBUG && _d('Parsing spec for critical thresholds');
9449 PTDEBUG && _d('Will get intial value for', $var, 'later');
9502 PTDEBUG && _d('Checking status variables');
9505 PTDEBUG && _d($var, '=', $val);
9522 PTDEBUG && _d(scalar keys %vals_too_high, 'values are too high:',
9527 PTDEBUG && _d('Calling sleep callback');
9532 PTDEBUG && _d('All var vals are low enough');
9544 PTDEBUG && _d('Checking and setting values');
9556 PTDEBUG && _d('Initial', $var, 'value:', $init_val);
9560 PTDEBUG && _d('Wait if', $var, '>=', $val);
9564 sub _d {
9613 PTDEBUG && _d('Master op time:', $n, 'n /', $t, 's');
9619 PTDEBUG && _d('Weighted avg rate:', $self->{avg_rate}, 'n/s');
9625 PTDEBUG && _d('Initial avg rate:', $self->{avg_rate}, 'n/s');
9629 PTDEBUG && _d('Adjust n to', $new_n);
9633 sub _d {
9715 PTDEBUG && _d($sth->{Statement}, 'params:', @$vals);
9719 PTDEBUG && _d('Range scan:', Dumper($row));
9756 PTDEBUG && _d($sql);
9795 sub _d {
9856 PTDEBUG && _d("No time left because stop was called");
9861 PTDEBUG && _d("Current time:", $now);
9874 PTDEBUG && _d("End time:", $self->{end_time});
9878 PTDEBUG && _d("Time left:", $self->{time_left});
9896 PTDEBUG && _d("Current time:", $now);
9899 PTDEBUG && _d("Time elapsed:", $time_elapsed);
9912 PTDEBUG && _d("Reset run time");
9928 sub _d {
10161 PTDEBUG && _d($dbh, $sql);
10168 PTDEBUG && _d($dbh, $sql);
10183 PTDEBUG && _d($dbh, $sql);
10185 PTDEBUG && _d('Original binlog_format:', $original_binlog_format);
10189 PTDEBUG && _d($dbh, $sql);
10216 PTDEBUG && _d($dbh, $sql);
10265 PTDEBUG && _d('QRT plugin is not installed: '.$EVAL_ERROR);
10268 PTDEBUG && _d("Disabling qrt plugin on master server");
10409 PTDEBUG && _d( "Cannot truncate replicate table $repl_table. $EVAL_ERROR");
10459 PTDEBUG && _d(scalar @$slaves, 'slaves found');
10599 PTDEBUG && _d('QRT plugin is not installed on slave '.$slave->{dsn_name});
10605 PTDEBUG && _d("Disabling qrt plugin state on slave ".$slave->{dsn_name});
10611 PTDEBUG && _d('Will use --check-slave-lag to check for slave lag');
10619 PTDEBUG && _d('Will check slave lag on all slaves');
10635 PTDEBUG && _d('May check slave lag on', $slave_cxn->name());
10652 PTDEBUG && _d("Both port DSNs are undefined, setting p_eq_p to true");
10673 PTDEBUG && _d('Will --replicate-check and exit');
10685 PTDEBUG && _d(scalar @$diffs, 'checksum diffs on',
10704 PTDEBUG && _d('Exit status', $exit_status, 'oktorun', $oktorun);
10712 PTDEBUG && _d("Checking slave replication filters");
10769 PTDEBUG && _d('Lost connection to master while waiting for slave lag');
10794 PTDEBUG && _d('Lost connection to slave', $cxn->name(),
10798 PTDEBUG && _d('Failed to connect to slave', $cxn->name(),
10808 PTDEBUG && _d('Error getting slave lag', $cxn->name(),
10832 PTDEBUG && _d($sth->{Statement}, $var);
10930 PTDEBUG && _d('Ignoring last table', @{$last_chunk}{qw(db tbl)},
10981 PTDEBUG && _d('Have more chunks; resuming from',
10990 PTDEBUG && _d('No more chunks; resuming from next table');
11046 PTDEBUG && _d('Getting table row estimate on', $slave->name());
11062 PTDEBUG && _d($e);
11065 PTDEBUG && _d('Failed to connect to slave', $slave->name(),
11082 PTDEBUG && _d('Table on', $slave->name(), 'has', $n_rows, 'rows');
11087 PTDEBUG && _d('Table too large on', $slave->name());
11148 PTDEBUG && _d($delete_sth->{Statement});
11191 PTDEBUG && _d('Cannot nibble next chunk, aborting table');
11263 PTDEBUG && _d('Nibble time:', $tbl->{nibble_time});
11283 PTDEBUG && _d('Skipping chunk', $chunk);
11327 PTDEBUG && _d('Total avg rate:', $total_rate);
11356 PTDEBUG && _d('Updated chunk size: '.$tbl->{chunk_size});
11387 PTDEBUG && _d('Checking slave diffs');
11425 PTDEBUG && _d(scalar @$diffs, 'checksum diffs on',
11634 PTDEBUG && _d("Restoring qrt plugin state on master server");
11639 PTDEBUG && _d("Restoring qrt plugin state on slave ".$slave->{dsn_name});
11649 PTDEBUG && _d('Exit status', $exit_status,
11778 PTDEBUG && _d($sth->{nibble}->{Statement},
11801 PTDEBUG && _d($sql_warn);
11807 PTDEBUG && _d('Ignoring warning:', $code, $message);
11989 PTDEBUG && _d('Checking --replicate table', $repl_table);
11998 PTDEBUG && _d($show_db_sql);
12013 PTDEBUG && _d($create_db_sql);
12030 PTDEBUG && _d($show_db_sql, 'on', $slave->name());
12070 PTDEBUG && _d('--replicate table exists:', $tbl_exists ? 'yes' : 'no');
12148 PTDEBUG && _d('Checking if', $slave->name(), 'has repl table');
12168 PTDEBUG && _d('--binary-index : checking if replicate table has binary type columns');
12231 PTDEBUG && _d($e);
12241 PTDEBUG && _d('Failed to connect to slave', $slave->name(),
12315 PTDEBUG && _d('use_repl_db');
12336 PTDEBUG && _d($sql);
12362 PTDEBUG && _d('Creating --replicate table', $repl_table);
12370 PTDEBUG && _d($dbh, $sql);
12401 PTDEBUG && _d($sth->{Statement}, 'params:', @$vals);
12411 PTDEBUG && _d('EXPLAIN plan:', Dumper($expl));
12422 PTDEBUG && _d('Getting last chunk for --resume');
12427 PTDEBUG && _d($sql);
12432 PTDEBUG && _d('Last chunk:', Dumper($last_chunk));
12435 PTDEBUG && _d('Replicate table is empty; will not resume');
12449 PTDEBUG && _d('Checking for more chunks beyond last chunk');
12454 PTDEBUG && _d('No more boundaries');
12509 PTDEBUG && _d($sql);
12523 PTDEBUG && _d('Skipping slave', $slave->name(),
12527 PTDEBUG && _d('Getting last checksum on', $slave->name());
12530 PTDEBUG && _d($slave->name(), 'max chunk:', $chunk);
12534 PTDEBUG && _d($e);
12546 PTDEBUG && _d($EVAL_ERROR);
12583 PTDEBUG && _d('Sleep', $sleep_time, 'waiting for chunks');
12604 sub _d {