[Bast-commits] r6959 - branches/DBIx-Class-Schema-Loader/mssql_tweaks/lib/DBIx/Class/Schema/Loader

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-07-03 03:33:07 +0000 (Fri, 03 Jul 2009)
New Revision: 6959

Modified:
   branches/DBIx-Class-Schema-Loader/mssql_tweaks/lib/DBIx/Class/Schema/Loader/Base.pm
Log:
fix pg

Modified: branches/DBIx-Class-Schema-Loader/mssql_tweaks/lib/DBIx/Class/Schema/Loader/Base.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/mssql_tweaks/lib/DBIx/Class/Schema/Loader/Base.pm	2009-07-03 03:04:12 UTC (rev 6958)
+++ branches/DBIx-Class-Schema-Loader/mssql_tweaks/lib/DBIx/Class/Schema/Loader/Base.pm	2009-07-03 03:33:07 UTC (rev 6959)
@@ -675,7 +675,7 @@
     my $table_name = $table;
     my $name_sep   = $self->schema->storage->sql_maker->name_sep;
 
-    if ($table_name =~ /\Q$name_sep\E/) {
+    if ($name_sep && $table_name =~ /\Q$name_sep\E/) {
         $table_name = \ $self->_quote_table_name($table_name);
     }
 
@@ -833,6 +833,8 @@
 
     my $qt = $self->schema->storage->sql_maker->quote_char;
 
+    return $table unless $qt;
+
     if (ref $qt) {
         return $qt->[0] . $table . $qt->[1];
     }