make non-ascii operators work
Matt S Trout [Thu, 11 Apr 2019 01:17:40 +0000 (01:17 +0000)]
lib/SQL/Abstract.pm

index 276b6ad..c7e0759 100644 (file)
@@ -588,6 +588,8 @@ sub _expand_hashpair {
   }
   if ($k =~ /^-/) {
     return $self->_expand_hashpair_op($k, $v);
+  } elsif ($k =~ /^[^\w]/i) {
+    return $self->_expand_op(-op, [ $k, @$v ]);
   }
   return $self->_expand_hashpair_ident($k, $v);
 }