From: Matt S Trout Date: Tue, 5 Mar 2019 03:15:12 +0000 (+0000) Subject: clean up the logic thing X-Git-Tag: v2.000000~3^2~407 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c34bdb2026293b097847618f20706aa9533169e;p=dbsrgits%2FSQL-Abstract.git clean up the logic thing --- diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm index 06f5756..7d62ac8 100644 --- a/lib/SQL/Abstract.pm +++ b/lib/SQL/Abstract.pm @@ -1177,14 +1177,14 @@ sub _expand_maybe_list_expr { my $e = do { if (ref($expr) eq 'ARRAY') { return { -list => [ - map $self->_expand_expr($_, $logic, $default), @$expr + map $self->expand_expr($_, $default), @$expr ] } if @$expr > 1; $expr->[0] } else { $expr } }; - return $self->_expand_expr($e, $logic, $default); + return $self->expand_expr($e, $default); } # highly optimized, as it's called way too often