From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 31 Jul 2011 00:33:46 +0000 (+0000)
Subject: sort hash keys when found as RHS in a hashpair
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f9b8ef0d2ff18faf60d98b01d480246ce5df4912;p=dbsrgits%2FSQL-Abstract.git

sort hash keys when found as RHS in a hashpair
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 0901281..fde45df 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -693,7 +693,7 @@ sub _where_hashpair_to_dq {
       if (ref($v) eq 'HASH') {
         if (keys %$v > 1) {
           return $self->_where_to_dq_ARRAYREF([
-            map +{ $k => { $_ => $v->{$_} } }, keys %$v
+            map +{ $k => { $_ => $v->{$_} } }, sort keys %$v
           ], 'AND');
         }
         (uc((keys %$v)[0]), (values %$v)[0]);