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: v2.000000~3^2~491
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e5e4625e34cef0a5e351a6a8bd94488c699b07e8;p=dbsrgits%2FSQL-Abstract.git

LITERAL op should perform bindtype check
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index f20a241..8df2616 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;
 }