X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=ex%2FBeerDB.pm;fp=ex%2FBeerDB.pm;h=db4ec1c66ce5556790ee37913e90c6187ef71b82;hb=4a51fad3fdb63a542f36768c575af4d07f8de7d5;hp=466aa5e8313fed88cfa42415a542e8356a530df9;hpb=1194fb590c7566bf936be64155db24275e263ff6;p=maypole.git diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm index 466aa5e..db4ec1c 100644 --- a/ex/BeerDB.pm +++ b/ex/BeerDB.pm @@ -8,6 +8,7 @@ sub debug { $ENV{BEERDB_DEBUG} || 0 } use constant DBI_DRIVER => 'SQLite'; use constant DATASOURCE => $ENV{BEERDB_DATASOURCE} || 't/beerdb.db'; + BEGIN { my $dbi_driver = DBI_DRIVER; if ($dbi_driver =~ /^SQLite/) {