[Bast-commits] r4620 - DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-07-25 01:42:52 +0100 (Fri, 25 Jul 2008)
New Revision: 4620

Modified:
   DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet.pm
Log:
join conds use self, not me.

Modified: DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet.pm
===================================================================
--- DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet.pm	2008-07-25 00:42:46 UTC (rev 4619)
+++ DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet.pm	2008-07-25 00:42:52 UTC (rev 4620)
@@ -16,7 +16,7 @@
         } qw/root left right/;
 
         my $table     = $class->table;
-        my %join_cond = { "foreign.$root" => "me.$root" };
+        my %join_cond = ( "foreign.$root" => "self.$root" );
 
         $class->belongs_to(
             root => $class,