Fixed problem with cdbi-t/13constrain.t
Ash Berlin [Thu, 28 Dec 2006 00:15:24 +0000 (00:15 +0000)]
lib/DBIx/Class/Row.pm

index a1624af..0e77941 100644 (file)
@@ -36,6 +36,8 @@ sub new {
   my $new = { _column_data => {} };
   bless $new, $class;
 
+  $new->_source_handle($source) if $source;
+
   if ($attrs) {
     $new->throw_exception("attrs must be a hashref")
       unless ref($attrs) eq 'HASH';
@@ -47,8 +49,6 @@ sub new {
     }
   }
 
-  $new->_source_handle($source) if $source;
-
   return $new;
 }