make weird undef order_by cases explicit
Matt S Trout [Wed, 27 Mar 2019 03:58:35 +0000 (03:58 +0000)]
lib/SQL/Abstract.pm

index e6b46c9..4fa14d6 100644 (file)
@@ -1278,7 +1278,9 @@ sub _expand_order_by {
               ),
                 map $self->expand_expr($_, -ident),
                 map ref($_) eq 'ARRAY' ? @$_ : $_, @to_expand;
-    return (@exp > 1 ? { -op => [ ',', @exp ] } : $exp[0]);
+    return undef unless @exp;
+    return undef if @exp == 1 and not defined($exp[0]);
+    return +{ -op => [ ',', @exp ] };
   };
 
   local @{$self->{expand}}{qw(-asc -desc)} = (($expander) x 2);