lift undef checking out of _order_by_chunks

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index fc50257..ebec784 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1062,6 +1062,8 @@ sub _open_outer_paren {
 sub _order_by {
   my ($self, $arg) = @_;
 
+  return '' unless defined($arg);
+
   my @chunks = $self->_order_by_chunks($arg);
 
   my @sql;
@@ -1094,10 +1096,6 @@ sub _order_by_chunks {
   if (!ref($arg)) {
     return +{ -ident => $arg };
   }
-  if (!defined($arg)) {
-    # Seriously?
-    return
-  }
   if (ref($arg) eq 'HASH') {
     my ($key, $val, @rest) = %$arg;