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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-07-25 01:43:17 +0100 (Fri, 25 Jul 2008)
New Revision: 4624

Modified:
   DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet.pm
Log:
Pass literal sql to the root rels where attr.

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:43:10 UTC (rev 4623)
+++ DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet.pm	2008-07-25 00:43:17 UTC (rev 4624)
@@ -21,7 +21,7 @@
         $class->belongs_to(
             root => $class,
             \%join_cond,
-            { where => 'me.left = 1', },
+            { where => \"me.$left = 1", },
         );
 
         $class->has_many(