From: Robert Buels <rmb32@cornell.edu>
Date: Thu, 6 Aug 2009 20:41:19 +0000 (+0000)
Subject: woops, pg search path fix needed support for quoted schema names in search paths
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94942394c18872ea5a6c309f62e15ff89127e98d;p=dbsrgits%2FDBIx-Class-Historic.git

woops, pg search path fix needed support for quoted schema names in search paths
---

diff --git a/lib/DBIx/Class/Storage/DBI/Pg.pm b/lib/DBIx/Class/Storage/DBI/Pg.pm
index e925529..2e516fd 100644
--- a/lib/DBIx/Class/Storage/DBI/Pg.pm
+++ b/lib/DBIx/Class/Storage/DBI/Pg.pm
@@ -43,7 +43,7 @@ sub _dbh_get_autoinc_seq {
       @search_path = ( $schema );
   } else {
       my ($search_path) = $dbh->selectrow_array('SHOW search_path');
-      while( $search_path =~ s/([^,]+),?// ) {
+      while( $search_path =~ s/("[^"]+"|[^,]+),?// ) {
           unless( defined $1 and length $1 ) {
               $self->throw_exception("search path sanity check failed: '$1'")
           }