+ fix #7917 - use correct template if object creation fails

[maypole.git] / ex / BeerDB.pm

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index e276830c4e10d18620783e10cecb6b937a9cc634..6d90b2eb7828f1c1566a1f25f3bfa443414a5d32 100644 (file)
--- a/ex/BeerDB.pm
+++ b/ex/BeerDB.pm
@@ -16,7 +16,7 @@ BEGIN {
             unless -e DATASOURCE;
         eval "require DBD::SQLite";
         if ($@) {
-            eval "require DBD::SQLite2" && dbi_driver = 'SQLite2';
+            eval "require DBD::SQLite2" and $dbi_driver = 'SQLite2';
         }
     }
     BeerDB->setup(join ':', "dbi", $dbi_driver, DATASOURCE);