[Bast-commits] r8337 - DBIx-Class/0.08/branches/prefetch_pager/lib/DBIx/Class

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-01-17 13:00:20 +0000 (Sun, 17 Jan 2010)
New Revision: 8337

Modified:
   DBIx-Class/0.08/branches/prefetch_pager/lib/DBIx/Class/ResultSource.pm
Log:
That was tricky :)

Modified: DBIx-Class/0.08/branches/prefetch_pager/lib/DBIx/Class/ResultSource.pm
===================================================================
--- DBIx-Class/0.08/branches/prefetch_pager/lib/DBIx/Class/ResultSource.pm	2010-01-17 12:44:00 UTC (rev 8336)
+++ DBIx-Class/0.08/branches/prefetch_pager/lib/DBIx/Class/ResultSource.pm	2010-01-17 13:00:20 UTC (rev 8337)
@@ -1261,7 +1261,7 @@
                   ? 'left'
                   : $rel_info->{attrs}{join_type}
                 ,
-               -join_path => [@$jpath, $join],
+               -join_path => [@$jpath, $as],
                -is_single => (List::Util::first { $rel_info->{attrs}{accessor} eq $_ } (qw/single filter/) ),
                -alias => $as,
                -relation_chain_depth => $seen->{-relation_chain_depth} || 0,