From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 30 Jun 2009 10:39:06 +0000 (+0000)
Subject: Allow broken resultsource-class-derived objects to still work
X-Git-Tag: v0.08108~46
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=84b1ec108;p=dbsrgits%2FDBIx-Class.git

Allow broken resultsource-class-derived objects to still work
---

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index 72bb2fc..554023b 100644
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -800,7 +800,7 @@ sub set_column {
     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