This was resulting in the master queries being sent to the replica and
vice versa, if the replica is listed first. Will probably still want to
reorder the hosts in output (or just list them all) later.
Thanks to Jacobo Blasco for debug assistance.
$slave = 2;
}
- ## If the slave is "db1" and master "db2", go ahead and switch them around for clearer output
- if (1 == $slave) {
- ($slave, $master) = (2, 1);
- for my $k (qw(host port dbname dbuser dbpass)) {
- ($opt{$k}, $opt{$k . 2}) = ($opt{$k . 2}, $opt{$k}); ## no critic (ProhibitMismatchedOperators)
- }
- }
-
## Get xlog positions
my ($moffset, $s_rec_offset, $s_rep_offset);