- die "No, wait, we don't have SQLite installed. Never mind\n" if $@;
- require DBI;
- my $dbh = DBI->connect("dbi:SQLite:dbname=t/beerdb.db");
-
+ my $dbh;
+ if ($@) {
+ eval { require DBD::SQLite2 };
+ die "No, wait, we don't have SQLite installed. Never mind\n" if $@;
+ require DBI;
+ $dbh = DBI->connect("dbi:SQLite2:dbname=t/beerdb.db");
+ } else {
+ require DBI;
+ $dbh = DBI->connect("dbi:SQLite:dbname=t/beerdb.db");
+ }