[Bast-commits] r7533 - DBIx-Class/0.08/branches/pg_unqualified_schema/t

[rbuels at dev.catalyst.perl.org]

Author: rbuels
Date: 2009-09-03 22:28:45 +0000 (Thu, 03 Sep 2009)
New Revision: 7533

Modified:
   DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t
Log:
more work on extended set of Pg auto-pk tests

Modified: DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t
===================================================================
--- DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t	2009-09-03 22:28:39 UTC (rev 7532)
+++ DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t	2009-09-03 22:28:45 UTC (rev 7533)
@@ -525,6 +525,7 @@
         }
 
         my $schema = $a{qualify} ? "$a{qualify}." : '';
+        local $_[1]->{Warn} = 0;
         $dbh->do(<<EOS);
 CREATE TABLE apk_t (
   id1 serial primary key
@@ -540,7 +541,6 @@
     });
 }
 
-
 sub eapk_drop_all {
     my ( $schema, $no_warn ) = @_;