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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-08-12 11:51:05 +0000 (Wed, 12 Aug 2009)
New Revision: 7309

Modified:
   branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
Log:
add TODO comment for mysql

Modified: branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm	2009-08-12 11:26:13 UTC (rev 7308)
+++ branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm	2009-08-12 11:51:05 UTC (rev 7309)
@@ -135,6 +135,8 @@
     if ($info->{mysql_values}) {
         $extra_info{extra}{list} = $info->{mysql_values};
     }
+# XXX we need to distinguish between DEFAULT CURRENT_TIMESTAMP and DEFAULT 'foo'
+# somehow, but DBI column_info doesn't preserve quotes.
     if ($info->{COLUMN_DEF} =~ /^CURRENT_TIMESTAMP\z/i) {
         $extra_info{default_value} = \'CURRENT_TIMESTAMP';
     }