From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 17 May 2019 02:20:57 +0000 (+0000)
Subject: allow plain - to fall through in hashpair expansion
X-Git-Tag: v2.000000~3^2~169
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e223f4ee3cd74aff3a3a275c73e3cacb31089984;p=dbsrgits%2FSQL-Abstract.git

allow plain - to fall through in hashpair expansion
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 5b48dcf..0c99319 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -584,7 +584,7 @@ sub _expand_hashpair {
     }
     puke "Supplying an empty left hand side argument is not supported";
   }
-  if ($k =~ /^-/) {
+  if ($k =~ /^-./) {
     return $self->_expand_hashpair_op($k, $v);
   } elsif ($k =~ /^[^\w]/i) {
     my ($lhs, @rhs) = @$v;