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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-30 10:40:46 +0000 (Tue, 30 Jun 2009)
New Revision: 6875

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm
Log:
clarify

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm	2009-06-30 10:39:06 UTC (rev 6874)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm	2009-06-30 10:40:46 UTC (rev 6875)
@@ -799,7 +799,7 @@
   else {  # do a numeric comparison if datatype allows it
     my $colinfo = $self->column_info ($column);
 
-    # cache for speed
+    # cache for speed (the object may *not* have a resultsource instance)
     if (not defined $colinfo->{is_numeric} && $self->_source_handle) {
       $colinfo->{is_numeric} =
         $self->result_source->schema->storage->is_datatype_numeric ($colinfo->{data_type})