- eval { require DBD::SQLite };
- die "No, wait, we don't have SQLite installed. Never mind\n" if $@;
+ my $driver = 'SQLite';
+ eval { require DBD::SQLite } or do {
+ print "Error loading DBD::SQLite, trying DBD::SQLite2\n";
+ eval {require DBD::SQLite2} ? $driver = 'SQLite2'
+ : die "DBD::SQLite2 is not installed";
+ };