From: Matt S Trout Date: Fri, 17 May 2019 02:20:57 +0000 (+0000) Subject: allow plain - to fall through in hashpair expansion X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a93e8a872753661e7501b4c6f5ffa1f7c9481f2b;p=scpubgit%2FQ-Branch.git allow plain - to fall through in hashpair expansion --- diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm index efa1e8a..ea1a508 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;