maintain condition order (left versus right) in _stack_cond

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index 4ff25f7..e329034 100644 (file)
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -600,9 +600,11 @@ sub _stack_cond {
 
   return undef unless @top;
 
-  my %top = map +(Data::Dumper::Concise::Dumper($_) => $_), @top;
+  my %seen;
 
-  return \Operator({ 'SQL.Naive' => 'AND' }, [ values %top ]);
+  my @uniq = grep { !$seen{Data::Dumper::Concise::Dumper($_)}++ } @top;
+
+  return \Operator({ 'SQL.Naive' => 'AND' }, \@uniq);
 }
 
 =head2 search_literal