From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 25 Mar 2019 03:10:34 +0000 (+0000)
Subject: let _expand_expr produce the deprecation warning
X-Git-Tag: v1.90_01~329
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a2e298963061f85cd3c116d22a508dda4607424;p=dbsrgits%2FSQL-Abstract.git

let _expand_expr produce the deprecation warning
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 07bbb72..6a73675 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -648,8 +648,7 @@ sub _expand_expr_hashpair_ident {
     my $op = join ' ', split '_', (map lc, $vk =~ /^-?(.*)$/)[0];
     $self->_assert_pass_injection_guard($op);
     if ($op =~ s/ [_\s]? \d+ $//x ) {
-      belch 'Use of [and|or|nest]_N modifiers is deprecated and will be removed in SQLA v2.0. '
-          . "You probably wanted ...-and => [ -$op => COND1, -$op => COND2 ... ]";
+      return $self->_expand_expr($k, $v);
     }
     if (my $x = $self->{expand_op}{$op}) {
       local our $Cur_Col_Meta = $k;