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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-30 10:39:06 +0000 (Tue, 30 Jun 2009)
New Revision: 6874

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm
Log:
Allow broken resultsource-class-derived objects to still work

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm	2009-06-30 09:54:34 UTC (rev 6873)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm	2009-06-30 10:39:06 UTC (rev 6874)
@@ -800,7 +800,7 @@
     my $colinfo = $self->column_info ($column);
 
     # cache for speed
-    if (not defined $colinfo->{is_numeric}) {
+    if (not defined $colinfo->{is_numeric} && $self->_source_handle) {
       $colinfo->{is_numeric} =
         $self->result_source->schema->storage->is_datatype_numeric ($colinfo->{data_type})
           ? 1