From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 8 Sep 2018 19:02:59 +0000 (+0000)
Subject: LITERAL op should perform bindtype check
X-Git-Tag: v1.90_01~470
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=465d43fdbe2748992b0df04522f8039307e7d236;p=dbsrgits%2FSQL-Abstract.git

LITERAL op should perform bindtype check
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index b664469..4b49dd9 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1033,6 +1033,7 @@ sub _where_op_BIND {
 
 sub _where_op_LITERAL {
   my ($self, undef, $literal) = @_;
+  $self->_assert_bindval_matches_bindtype(@{$literal}[1..$#$literal]);
   return @$literal;
 }