X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract.pm;h=b06f0fa718efe55031aed5c4c7000ef63ab988e0;hb=7741b7ad9d94e2c060763b13ad5ce93764af6163;hp=c8e2bac67c3ecbb994e84eed70af5a58a4a8f4fd;hpb=a5536efa75037f42db7dfca97ad2ed853a1c0117;p=scpubgit%2FQ-Branch.git

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index c8e2bac..b06f0fa 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -590,7 +590,10 @@ sub _expand_hashpair {
   if ($k =~ /^-/) {
     return $self->_expand_hashpair_op($k, $v);
   } elsif ($k =~ /^[^\w]/i) {
-    return $self->_expand_op(-op, [ $k, @$v ]);
+    my ($lhs, @rhs) = @$v;
+    return $self->_expand_op(
+      -op, [ $k, $self->expand_expr($lhs, -ident), @rhs ]
+    );
   }
   return $self->_expand_hashpair_ident($k, $v);
 }