From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 18 Apr 2019 02:00:53 +0000 (+0000)
Subject: make join_query_parts handle scalars
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a61ebbc270976f7dbb2a348ec96ea2420172d51;hp=7be3429cbdf597917680f08d8d32c561d37bfc52;p=scpubgit%2FQ-Branch.git

make join_query_parts handle scalars
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index ad6a9a8..b658243 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1199,8 +1199,11 @@ sub _render_op_multop {
 
 sub join_query_parts {
   my ($self, $join, @parts) = @_;
-  my @final = map +(ref($_) eq 'HASH' ? [ $self->render_aqt($_) ] : $_),
-                @parts;
+  my @final = map +(
+    ref($_) eq 'HASH'
+      ? [ $self->render_aqt($_) ]
+      : ref($_) eq 'ARRAY' ? $_ : [ $_ ]),
+         @parts;
   return (
     join($join, map $_->[0], @final),
     (wantarray ? (map @{$_}[1..$#$_], @final) : ()),