[Bast-commits] r3662 - in DBIx-Class/0.08/trunk: . lib/DBIx/Class/InflateColumn

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-08-08 11:47:39 +0100 (Wed, 08 Aug 2007)
New Revision: 3662

Modified:
   DBIx-Class/0.08/trunk/Changes
   DBIx-Class/0.08/trunk/lib/DBIx/Class/InflateColumn/DateTime.pm
Log:
timestamp+pg fix

Modified: DBIx-Class/0.08/trunk/Changes
===================================================================
--- DBIx-Class/0.08/trunk/Changes	2007-08-08 10:38:39 UTC (rev 3661)
+++ DBIx-Class/0.08/trunk/Changes	2007-08-08 10:47:39 UTC (rev 3662)
@@ -1,5 +1,7 @@
 Revision history for DBIx::Class
 
+        - add timestamp fix re rt.cpan 26978 - no test yet but change
+          clearly should cause no regressions
         - provide alias for related_resultset via local() so it's set
           correctly at resultset construction time (fixes RestrictWithObject)
         - fixes bind params in debug statements

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/InflateColumn/DateTime.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/InflateColumn/DateTime.pm	2007-08-08 10:38:39 UTC (rev 3661)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/InflateColumn/DateTime.pm	2007-08-08 10:47:39 UTC (rev 3662)
@@ -54,7 +54,7 @@
   $self->next::method($column, $info, @rest);
   return unless defined($info->{data_type});
   my $type = lc($info->{data_type});
-  $type = 'datetime' if ($type eq 'timestamp');
+  $type = 'datetime' if ($type =~ /^timestamp/);
   if ($type eq 'datetime' || $type eq 'date') {
     my ($parse, $format) = ("parse_${type}", "format_${type}");
     $self->inflate_column(