[Bast-commits] r5057 - in SQL-Abstract/1.x/branches/1.50_RC: lib/SQL t

[dami at dev.catalyst.perl.org]

Author: dami
Date: 2008-11-05 23:52:56 +0000 (Wed, 05 Nov 2008)
New Revision: 5057

Modified:
   SQL-Abstract/1.x/branches/1.50_RC/lib/SQL/Abstract.pm
   SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t
Log:
patch by Norbert BUCHMULLER (order_by => undef)

Modified: SQL-Abstract/1.x/branches/1.50_RC/lib/SQL/Abstract.pm
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/lib/SQL/Abstract.pm	2008-11-05 18:57:58 UTC (rev 5056)
+++ SQL-Abstract/1.x/branches/1.50_RC/lib/SQL/Abstract.pm	2008-11-05 23:52:56 UTC (rev 5057)
@@ -711,6 +711,7 @@
     },
 
     SCALAR    => sub {$self->_quote($arg)},
+    UNDEF     => sub {},
     SCALARREF => sub {$$arg}, # literal SQL, no quoting
     HASHREF   => sub {$self->_order_by_hash($arg)},
 

Modified: SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t	2008-11-05 18:57:58 UTC (rev 5056)
+++ SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t	2008-11-05 23:52:56 UTC (rev 5057)
@@ -44,6 +44,11 @@
     expects => ' ORDER BY colA, colB DESC',
     expects_quoted => ' ORDER BY `colA`, `colB` DESC',
    },
+   {
+    given => undef,
+    expects => '',
+    expects_quoted => '',
+   },
   );
 
 my $sql  = SQL::Abstract->new;