From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 26 Mar 2019 02:45:09 +0000 (+0000)
Subject: nuke is/is not code now handled by render_op
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1380fa21c0a8b587ad42b6ae55ee3524f4f2833;p=scpubgit%2FQ-Branch.git

nuke is/is not code now handled by render_op
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index b360674..5a80fcb 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -665,16 +665,6 @@ sub _expand_expr_hashpair_ident {
       local our $Cur_Col_Meta = $k;
       return $self->$x($op, $vv, $k);
     }
-    if ($op =~ /^is(?: not)?$/) {
-      puke "$op can only take undef as argument"
-        if defined($vv)
-           and not (
-             ref($vv) eq 'HASH'
-             and exists($vv->{-value})
-             and !defined($vv->{-value})
-           );
-      return +{ -op => [ $op.' null', $ik ] };
-    }
     if (my $us = List::Util::first { $op =~ $_->{regex} } @{$self->{special_ops}}) {
       return { -op => [ $op, $ik, $vv ] };
     }