[Bast-commits] r5647 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship

[edenc at dev.catalyst.perl.org]

Author: edenc
Date: 2009-02-25 14:14:38 +0000 (Wed, 25 Feb 2009)
New Revision: 5647

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Base.pm
Log:
fixed alias prepending for OR'ed join conditions in relationships

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Base.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Base.pm	2009-02-25 13:55:54 UTC (rev 5646)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Base.pm	2009-02-25 14:14:38 UTC (rev 5647)
@@ -209,7 +209,7 @@
         if (ref $_ eq 'HASH') {
           my $hash;
           foreach my $key (keys %$_) {
-            my $newkey = $key =~ /\./ ? "me.$key" : $key;
+            my $newkey = $key !~ /\./ ? "me.$key" : $key;
             $hash->{$newkey} = $_->{$key};
           }
           $hash;