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-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4c43404495f111bfebc482a1a1f210fd8047b7f;p=scpubgit%2FQ-Branch.git

explicit defaulting of scalar-rhs hashpair
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index af8c256..02ea6dd 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 }));
 }