From: Rafael Kitover <rkitover@cpan.org>
Date: Fri, 3 Jul 2009 03:33:07 +0000 (+0000)
Subject: fix pg
X-Git-Tag: 0.04999_08~2^2~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c177d483770bf91f0d1ac9a9907fbb42796245cc;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

fix pg
---

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index ff336a0..8db6032 100644
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -675,7 +675,7 @@ sub _setup_src_meta {
     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 @@ sub _quote_table_name {
 
     my $qt = $self->schema->storage->sql_maker->quote_char;
 
+    return $table unless $qt;
+
     if (ref $qt) {
         return $qt->[0] . $table . $qt->[1];
     }