From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 21 Mar 2019 03:38:00 +0000 (+0000)
Subject: no longer required, op is normalised earlier
X-Git-Tag: v1.90_01~361
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a89f349e3debbeaeb1d655d013b2aa6e528e1117;p=dbsrgits%2FSQL-Abstract.git

no longer required, op is normalised earlier
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index e5750fc..38d6084 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1009,8 +1009,6 @@ my %special = (
 sub _render_op {
   my ($self, $v) = @_;
   my ($op, @args) = @$v;
-  $op =~ s/^-// if length($op) > 1;
-  $op = lc($op);
   if (my $h = $special{$op}) {
     return $self->$h(\@args);
   }
@@ -1025,6 +1023,9 @@ sub _render_op {
   if (my $us = List::Util::first { $op =~ $_->{regex} } @{$self->{unary_ops}}) {
     return $self->${\($us->{handler})}($op, $args[0]);
   }
+  if (my $r = $self->{render_op}{$op}) {
+    return $self->$r(\@args);
+  }
   if (@args == 1 and $op !~ /^(and|or)$/) {
     my ($expr_sql, @bind) = $self->render_aqt($args[0]);
     my $op_sql = $self->_sqlcase($op);