[Bast-commits] r8418 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-01-22 16:05:12 +0000 (Fri, 22 Jan 2010)
New Revision: 8418

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm
Log:
fix name of _is_numeric to _is_column_numeric


Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm	2010-01-22 12:28:03 UTC (rev 8417)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm	2010-01-22 16:05:12 UTC (rev 8418)
@@ -776,7 +776,7 @@
   return ($self->get_columns, %inflated);
 }
 
-sub _is_numeric {
+sub _is_column_numeric {
    my ($self, $column) = @_;
     my $colinfo = $self->column_info ($column);
 
@@ -836,7 +836,7 @@
     $dirty = 0;
   }
   else {  # do a numeric comparison if datatype allows it
-    if ($self->_is_numeric($column)) {
+    if ($self->_is_column_numeric($column)) {
       $dirty = $old_value != $new_value;
     }
     else {