X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=ex%2FBeerDB.pm;h=db4ec1c66ce5556790ee37913e90c6187ef71b82;hb=346143529922475f513453053cab4b387ac22b9d;hp=466aa5e8313fed88cfa42415a542e8356a530df9;hpb=85dcd6751d0499f04d3e64ae3a894cf878224da5;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/) {