From: Ken Youens-Clark <kclark@cpan.org>
Date: Fri, 7 Aug 2009 21:03:16 +0000 (+0000)
Subject: Catch case of specifying 'DBI-Driver' and quietly fix this.
X-Git-Tag: v0.11008~137
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67db39ab4d08a2f56cd5bae0d66d6f885aa3f03e;p=dbsrgits%2FSQL-Translator.git

Catch case of specifying 'DBI-Driver' and quietly fix this.
---

diff --git a/script/sqlt b/script/sqlt
index 5d4eccc..091c250 100755
--- a/script/sqlt
+++ b/script/sqlt
@@ -252,7 +252,14 @@ if ($use_same_auth) {
 	$producer_db_password = $db_password;
 }
 
-$from = 'DBI' if !defined $from && defined $dsn;
+if ( 
+    ( !defined $from && defined $dsn )
+    ||
+    $from =~ /^DBI.*/
+) {
+    $from = 'DBI';
+}
+
 my @files = @ARGV; # source files
 unless ( @files ) {
     if ( defined($from) && $from eq 'DBI' ) {