From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 17 Sep 2018 03:33:47 +0000 (+0000)
Subject: remove last references to _nested_func_lhs
X-Git-Tag: v1.90_01~432
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f1bdbce5cf77aecf19779614c585c727240c5e7;p=dbsrgits%2FSQL-Abstract.git

remove last references to _nested_func_lhs
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index c288dac..a819179 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -628,8 +628,7 @@ sub _expand_expr_hashpair {
     
       # top level special ops are illegal in general
       puke "Illegal use of top-level '-$op'"
-        if !(defined $self->{_nested_func_lhs})
-        and List::Util::first { $op =~ $_->{regex} } @{$self->{special_ops}};
+        if List::Util::first { $op =~ $_->{regex} } @{$self->{special_ops}};
     }
     if ($k eq '-value' and my $m = our $Cur_Col_Meta) {
       return +{ -bind => [ $m, $v ] };
@@ -968,7 +967,6 @@ sub _render_op {
   my ($op, @args) = @$v;
   $op =~ s/^-// if length($op) > 1;
   $op = lc($op);
-  local $self->{_nested_func_lhs};
   if (my $h = $special{$op}) {
     return $self->$h(\@args);
   }