From: Matt S Trout Date: Tue, 5 Mar 2019 03:15:12 +0000 (+0000) Subject: clean up the logic thing X-Git-Tag: v1.90_01~386 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ee3313d99a66b217b127f7d73a81f5b870e9545;p=dbsrgits%2FSQL-Abstract.git clean up the logic thing --- diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm index fae5024..0561390 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