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: v1.90_01~418
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02b8fe35548f9219e7e1e4085f2fa0b5e3469e43;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 df94d96..b2c7948 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},