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: v2.000000~3^2~365
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d722a0642290d309d5523eeab4b220685460359;p=dbsrgits%2FSQL-Abstract.git

lift injection validation
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 6234b98..ea587b2 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',