LP #1056383: pt-table-checksum --resume dies if server is completely checksummed

**Reported in Launchpad by Baron Schwartz last update 12-10-2012 16:29:53

I'm getting this error:

Use of uninitialized value $db in string eq at /usr/local/lib/site_perl/utils/pt/pt-table-checksum line 5612.

The code is the _resume_from_database() sub, and here's where it's being called:

5445 if ( !$self->

{db} ) {
5446 do {
5447 $self->{db}

= shift @{$self->{dbs}};
5448 } until $self->_resume_from_database($self->

{db});
5449 PTDEBUG && _d('Next database:', $self->{db}

);
5450 return unless $self->

{db}

;
5451 }

I think the do/until loop is the problem here – I think the server is completely checksummed and we're running off the end of the list. We probably need to change the until condition, or make the subroutine check for undefined $db.