From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 21 Mar 2019 05:34:28 +0000 (+0000)
Subject: lift injection validation
X-Git-Tag: v1.90_01~344
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d04e75a8ab1a154558d1f5c44863c283120c0a6;p=dbsrgits%2FSQL-Abstract.git

lift injection validation
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index e2f4d34..6a037fb 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -597,8 +597,8 @@ sub _expand_expr_hashpair {
     }
     puke "Supplying an empty left hand side argument is not supported";
   }
+  $self->_assert_pass_injection_guard($k =~ /^-(.*)$/s) if $k =~ /^-/;
   if ($k =~ /^-/) {
-    $self->_assert_pass_injection_guard($k =~ /^-(.*)$/s);
     if (my ($rest) = $k =~/^-not[_ ](.*)$/) {
       return +{ -op => [
         'not',