PERL-387 added retry logic to Database::database_names()
PERL-387 amend retry logic