Fixed problem with cdbi-t/13constrain.t

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index a1624af..0e77941 100644 (file)
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -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;
 }