From: Rafael Kitover <rkitover@cpan.org>
Date: Mon, 25 May 2009 22:51:08 +0000 (+0000)
Subject: add patch from semifor to use ->get_info for quote_char/name_sep by default
X-Git-Tag: 0.04999_08~15^2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a513611402aa49a3d142f3523d74433e3ecfdc6;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

add patch from semifor to use ->get_info for quote_char/name_sep by default
---

diff --git a/Changes b/Changes
index 3a6517c..18fafdf 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension DBIx::Class::Schema::Loader
 
+	- use $dbh->get_info(29/41) for qote_car/name_sep if available(semifor)
+	- add MSSQL support through DBD::ODBC
+
 0.04999_08 Not Yet Released
         - Replace UNIVERSAL::require with Class::C3::Componentised
 
diff --git a/lib/DBIx/Class/Schema/Loader/DBI.pm b/lib/DBIx/Class/Schema/Loader/DBI.pm
index 942438d..b8699c5 100644
--- a/lib/DBIx/Class/Schema/Loader/DBI.pm
+++ b/lib/DBIx/Class/Schema/Loader/DBI.pm
@@ -46,12 +46,12 @@ sub new {
     }
 
     # Set up the default quoting character and name seperators
-    $self->{_quoter} = $self->schema->storage->sql_maker->quote_char
-                    || $dbh->get_info(29)
+    $self->{_quoter} = $dbh->get_info(29)
+                    || $self->schema->storage->sql_maker->quote_char
                     || q{"};
 
-    $self->{_namesep} = $self->schema->storage->sql_maker->name_sep
-                     || $dbh->get_info(41)
+    $self->{_namesep} = $dbh->get_info(41)
+                     || $self->schema->storage->sql_maker->name_sep
                      || q{.};
 
     # For our usage as regex matches, concatenating multiple quoter