X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=blobdiff_plain;f=ex%2FBeerDB.pm;h=6df04914611ad19d1f176209c53c49917015cac4;hp=1e84b36147f4b5f5e7ad2192220435f5d94296e5;hb=24259799350483f32219fd3755e0bed54f909c54;hpb=9def4d1b9f2f3dd6d2f0f789610954209b133703

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index 1e84b36..6df0491 100644
--- a/ex/BeerDB.pm
+++ b/ex/BeerDB.pm
@@ -7,7 +7,12 @@ sub debug { $ENV{BEERDB_DEBUG} }
 BEGIN {
 # This is the sample application. Change this to the path to your
 # database. (or use mysql or something)
-BeerDB->setup("dbi:SQLite:t/beerdb.db");
+eval { require DBD::SQLite };
+if ($@) {
+   BeerDB->setup("dbi:SQLite2:t/beerdb.db");
+} else {
+    BeerDB->setup("dbi:SQLite:t/beerdb.db");
+}
 }
 
 # Give it a name.