From: Ash Berlin Date: Thu, 28 Dec 2006 00:15:24 +0000 (+0000) Subject: Fixed problem with cdbi-t/13constrain.t X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6a280b9dc01e12bb880546928e2dd0365223343;p=dbsrgits%2FDBIx-Class-Historic.git 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 --- 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; }