From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 2 Sep 2018 20:23:57 +0000 (+0000)
Subject: explicit defaulting of scalar-rhs hashpair
X-Git-Tag: v2.000000~3^2~511
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f5568589e45a3b8977e265e71916777b7793611c;p=dbsrgits%2FSQL-Abstract.git

explicit defaulting of scalar-rhs hashpair
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 112643e..16cb20b 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1089,11 +1089,7 @@ sub _where_hashpair_ARRAYREFREF {
 sub _where_hashpair_SCALAR {
   my ($self, $k, $v) = @_;
   $self->_debug("NOREF($k) means simple key=val: $k $self->{cmp} $v");
-  my $sql = join ' ', $self->_convert($self->_quote($k)),
-                      $self->_sqlcase($self->{cmp}),
-                      $self->_convert('?');
-  my @bind =  $self->_bindtype($k, $v);
-  return ($sql, @bind);
+  return ($self->_where_hashpair_HASHREF($k, { $self->{cmp} => $v }));
 }