patch by Norbert BUCHMULLER (order_by => undef)

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index c7199f1..90cf77d 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -711,6 +711,7 @@ sub _order_by {
     },
 
     SCALAR    => sub {$self->_quote($arg)},
+    UNDEF     => sub {},
     SCALARREF => sub {$$arg}, # literal SQL, no quoting
     HASHREF   => sub {$self->_order_by_hash($arg)},
 

diff --git a/t/06order_by.t b/t/06order_by.t
index 08477ec..1cf06c9 100644 (file)
--- a/t/06order_by.t
+++ b/t/06order_by.t
@@ -44,6 +44,11 @@ my @cases =
     expects => ' ORDER BY colA, colB DESC',
     expects_quoted => ' ORDER BY `colA`, `colB` DESC',
    },
+   {
+    given => undef,
+    expects => '',
+    expects_quoted => '',
+   },
   );
 
 my $sql  = SQL::Abstract->new;