[Bast-commits] r3177 - trunk/DBIx-Class-TimeStamp/lib/DBIx/Class

[jshirley at dev.catalyst.perl.org]

Author: jshirley
Date: 2007-04-04 01:57:38 +0100 (Wed, 04 Apr 2007)
New Revision: 3177

Modified:
   trunk/DBIx-Class-TimeStamp/lib/DBIx/Class/TimeStamp.pm
Log:
Making data_type check case insensitive, RT ticket 26081

Modified: trunk/DBIx-Class-TimeStamp/lib/DBIx/Class/TimeStamp.pm
===================================================================
--- trunk/DBIx-Class-TimeStamp/lib/DBIx/Class/TimeStamp.pm	2007-04-03 17:32:51 UTC (rev 3176)
+++ trunk/DBIx-Class-TimeStamp/lib/DBIx/Class/TimeStamp.pm	2007-04-04 00:57:38 UTC (rev 3177)
@@ -57,7 +57,7 @@
 
     foreach my $column ( $self->columns ) {
         my $info = $self->column_info($column);
-        if ( $info->{data_type} =~ /^(datetime|date|timestamp)$/ ) {
+        if ( $info->{data_type} =~ /^(datetime|date|timestamp)$/i ) {
             if ( $info->{set_on_update} ) {
                 push @update_columns, $column;
             }