while ( my ($driver, $drh) = each %DBI::installed_drh) {
        no strict 'refs';
        next if defined &{"DBD::${driver}::CLONE"};
        warn("$driver has no driver CLONE() function so is unsafe threaded\n");
    }