From 2a0564f48a17a688c114fac6384bb2a4dd34865b Mon Sep 17 00:00:00 2001
From: biopete <biopete@invalid>
Date: Mon, 3 Jul 2006 19:16:37 +0000
Subject: [PATCH] aoeuaou

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@502 48953598-375a-da11-a14b-00016c27c3ee
---
 t/db_colinfo.t | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/t/db_colinfo.t b/t/db_colinfo.t
index ed54fd7..0c19556 100755
--- a/t/db_colinfo.t
+++ b/t/db_colinfo.t
@@ -92,18 +92,20 @@ package main;
 
 $DB_Class = 'BeerDB::BeerTestsqlite';
 
+$err = undef;
 #unlink "t/test.db";
 if ( !-e "t/test.db" ) {
 	eval {make_sqlite_db($sql)};
 	$err = $@;
 	if ($err) { print "Skipping sql tests because couldnt make sqlite test db
-		because of error $err"; exit; };
+		because of error: $err";};
+}
+unless ($err) {
+	my $driver = sqlite_driver();
+	eval { $DB_Class->connection("dbi:$driver:dbname='t/test.db'");};
+	$err = $@;
 }
 
-my $driver = sqlite_driver();
-eval { $DB_Class->connection("dbi:$driver:dbname='t/test.db'");};
-$err = $@;
-if ($err) { die "CDBI connection error: $err"; }
 $skip_msg = "Could not connect to SQLite database 't/test.db'";
 $skip_howmany = 13;
 
-- 
2.39.5