LITERAL op should perform bindtype check

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index b664469..4b49dd9 100644 (file)
--- 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;
 }