update to BeerDB.pm to use env var for DSN details if provided

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@353 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/META.yml b/META.yml
index 07232555c0d3deb0e180d0d689dbefda03211115..022d2220145ddea8ab2b7fdd65d5fa06ac1ef2d0 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Maypole
-version:      2.10_pre2
+version:      2.10_pre2a
 version_from: lib/Maypole.pm
 installdirs:  site
 requires:

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index 6d90b2eb7828f1c1566a1f25f3bfa443414a5d32..1e4291a1410737bf1964b90d1f1012690f883d27 100644 (file)
--- a/ex/BeerDB.pm
+++ b/ex/BeerDB.pm
@@ -6,7 +6,7 @@ sub debug { $ENV{BEERDB_DEBUG} }
 # This is the sample application.  Change this to the path to your
 # database. (or use mysql or something)
 use constant DBI_DRIVER => 'SQLite';
-use constant DATASOURCE => 't/beerdb.db';
+use constant DATASOURCE => $ENV{BEERDB_DATASOURCE} || 't/beerdb.db';
 
 BEGIN {
     my $dbi_driver = DBI_DRIVER;