From 4a51fad3fdb63a542f36768c575af4d07f8de7d5 Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Thu, 30 Mar 2006 14:49:05 +0000 Subject: [PATCH] testing git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@466 48953598-375a-da11-a14b-00016c27c3ee --- ex/BeerDB.pm | 1 + 1 file changed, 1 insertion(+) 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/) { -- 2.39.2