From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 27 Jan 2013 19:10:34 +0000 (+0100)
Subject: Write correct odd (not even) relchain depth on primary joins
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b7ddb46dbf77846e735fc491e04b0db4337fe5c0;p=dbsrgits%2FDBIx-Class-Historic.git

Write correct odd (not even) relchain depth on primary joins
---

diff --git a/lib/DBIx/Class/ResultSource.pm b/lib/DBIx/Class/ResultSource.pm
index 97c37eb..d33a74d 100644
--- a/lib/DBIx/Class/ResultSource.pm
+++ b/lib/DBIx/Class/ResultSource.pm
@@ -1600,7 +1600,7 @@ sub _resolve_join {
                   first { $rel_info->{attrs}{accessor} eq $_ } (qw/single filter/)
                 ),
                -alias => $as,
-               -relation_chain_depth => $seen->{-relation_chain_depth} || 0,
+               -relation_chain_depth => ( $seen->{-relation_chain_depth} || 0 ) + 1,
              },
              scalar $self->_resolve_condition($rel_info->{cond}, $as, $alias, $join)
           ];