[Bast-commits] r7248 - DBIx-Class/0.08/branches/pg_unqualified_schema/lib/DBIx/Class/Storage/DBI

[rbuels at dev.catalyst.perl.org]

Author: rbuels
Date: 2009-08-06 20:41:19 +0000 (Thu, 06 Aug 2009)
New Revision: 7248

Modified:
   DBIx-Class/0.08/branches/pg_unqualified_schema/lib/DBIx/Class/Storage/DBI/Pg.pm
Log:
woops, pg search path fix needed support for quoted schema names in search paths

Modified: DBIx-Class/0.08/branches/pg_unqualified_schema/lib/DBIx/Class/Storage/DBI/Pg.pm
===================================================================
--- DBIx-Class/0.08/branches/pg_unqualified_schema/lib/DBIx/Class/Storage/DBI/Pg.pm	2009-08-06 19:42:30 UTC (rev 7247)
+++ DBIx-Class/0.08/branches/pg_unqualified_schema/lib/DBIx/Class/Storage/DBI/Pg.pm	2009-08-06 20:41:19 UTC (rev 7248)
@@ -43,7 +43,7 @@
       @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'")
           }