From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 18 Mar 2019 17:06:21 +0000 (+0000)
Subject: remove duplicate value expansion code
X-Git-Tag: v1.90_01~363
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=24c9f930b0f6e06d177d25556fb30db8065d4b3e;p=dbsrgits%2FSQL-Abstract.git

remove duplicate value expansion code
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index dfd317c..2061a4d 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -564,10 +564,7 @@ sub _expand_expr {
     if (my $d = our $Default_Scalar_To) {
       return $self->_expand_expr({ $d => $expr });
     }
-    if (my $m = our $Cur_Col_Meta) {
-      return +{ -bind => [ $m, $expr ] };
-    }
-    return +{ -bind => [ undef, $expr ] };
+    return $self->_expand_value(-value => $expr);
   }
   die "notreached";
 }