[Bast-commits] r8403 - branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-01-22 05:42:50 +0000 (Fri, 22 Jan 2010)
New Revision: 8403

Modified:
   branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
Log:
make default datetime type precision checking for Pg more precise

Modified: branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm	2010-01-22 03:43:04 UTC (rev 8402)
+++ branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm	2010-01-22 05:42:50 UTC (rev 8403)
@@ -147,7 +147,8 @@
 WHERE table_name = ? and column_name = ?
 EOF
 
-            if ((not $precision) || $precision !~ /^\d/ || $precision == 6) {
+            if ((not $precision) || $precision !~ /^\d/
+                || ($data_type !~ /^time\b/i && $precision == 6)) { # only interval/timestamp default to precision == 6
                 delete $result->{$col}{size};
             }
             else {