[Dbix-class] Postgresql auto-sequence code .. (using schemas)

[Jesper Krogh]

Hi.

The current DBIx::Class fails to ->create() stuff when the table is in a
schema that isn't in the default search path.

This patch makes the Auto sequence stuff work when the table resides in a
schemas that's not in the default search path too. (does not change the
current behaviour). The patch to the test makes the test pass.


Index: t/run/12pg.tl
===================================================================
--- t/run/12pg.tl       (revision 1502)
+++ t/run/12pg.tl       (working copy)
@@ -50,7 +50,7 @@
 my $type_info = PgTest->schema->storage->columns_info_for('artist');
 my $artistid_defval = delete $type_info->{artistid}->{default_value};
 like($artistid_defval,
-     qr/^nextval\('public\.artist_artistid_seq'::(?:text|regclass)\)/,
+     qr/^nextval\('artist_artistid_seq'::(?:text|regclass)\)/,
      'columns_info_for - sequence matches Pg get_autoinc_seq expectations');
 is_deeply($type_info, $test_type_info,
           'columns_info_for - column data types');
Index: lib/DBIx/Class/Storage/DBI/Pg.pm
===================================================================
--- lib/DBIx/Class/Storage/DBI/Pg.pm    (revision 1502)
+++ lib/DBIx/Class/Storage/DBI/Pg.pm    (working copy)
@@ -25,7 +25,7 @@
     if (defined $info->[12] and $info->[12] =~
       /^nextval\(+'([^']+)'::(?:text|regclass)\)/)
     {
-      return $1; # may need to strip quotes -- see if this works
+      return $schema ? $schema . "." . $1 : $1 ; # may need to strip
quotes -- see if this works
     }
   }
 }

Jesper

-- 
Jesper Krogh