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 (file)
--- 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 (file)
--- 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