From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 10 Apr 2019 00:35:44 +0000 (+0000)
Subject: don't re-expand maybe list expr when already list
X-Git-Tag: v2.000000~3^2~276
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b5143352f4158747d0dc2ed9f1b37105bd601ce6;p=dbsrgits%2FSQL-Abstract.git

don't re-expand maybe list expr when already list
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 98379b8..2d587b4 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1343,6 +1343,7 @@ sub _table  {
 
 sub _expand_maybe_list_expr {
   my ($self, $expr, $default) = @_;
+  return $expr if ref($expr) eq 'HASH' and (($expr->{-op}||[''])->[0] eq ',');
   return +{ -op => [ ',',
     map $self->expand_expr($_, $default),
       ref($expr) eq 'ARRAY' ? @$expr : $expr