[Bast-commits] r6424 - in branches/DBIx-Class-Schema-Loader/odbc-mssql: . lib/DBIx/Class/Schema/Loader

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-25 22:51:08 +0000 (Mon, 25 May 2009)
New Revision: 6424

Modified:
   branches/DBIx-Class-Schema-Loader/odbc-mssql/Changes
   branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI.pm
Log:
add patch from semifor to use ->get_info for quote_char/name_sep by default

Modified: branches/DBIx-Class-Schema-Loader/odbc-mssql/Changes
===================================================================
--- branches/DBIx-Class-Schema-Loader/odbc-mssql/Changes	2009-05-25 18:36:19 UTC (rev 6423)
+++ branches/DBIx-Class-Schema-Loader/odbc-mssql/Changes	2009-05-25 22:51:08 UTC (rev 6424)
@@ -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
 

Modified: branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI.pm	2009-05-25 18:36:19 UTC (rev 6423)
+++ branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI.pm	2009-05-25 22:51:08 UTC (rev 6424)
@@ -46,12 +46,12 @@
     }
 
     # 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