From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 20 Sep 2018 22:13:03 +0000 (+0000)
Subject: allow arrayref ident values for multi-part ident
X-Git-Tag: v2.000000~3^2~439
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b255d125eed3cd5944beaa13598b2177d082c46a;p=dbsrgits%2FSQL-Abstract.git

allow arrayref ident values for multi-part ident
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index c2ab787..007aaab 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -701,8 +701,8 @@ sub _expand_expr_hashpair {
       ] };
     }
     if ($vk eq 'ident') {
-      if (! defined $vv or ref $vv) {
-        puke "-$vk requires a single plain scalar argument (a quotable identifier)";
+      if (! defined $vv or (ref($vv) and ref($vv) eq 'ARRAY')) {
+        puke "-$vk requires a single plain scalar argument (a quotable identifier) or an arrayref of identifier parts";
       }
       return +{ -op => [
         $self->{cmp},