From: Matt S Trout 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',