[Bast-commits] r5853 - SQL-Abstract/1.x/branches/in_between/lib/SQL

[arcanez at dev.catalyst.perl.org]

Author: arcanez
Date: 2009-03-31 23:18:37 +0100 (Tue, 31 Mar 2009)
New Revision: 5853

Modified:
   SQL-Abstract/1.x/branches/in_between/lib/SQL/Abstract.pm
Log:
 * remove unneeded shift

Modified: SQL-Abstract/1.x/branches/in_between/lib/SQL/Abstract.pm
===================================================================
--- SQL-Abstract/1.x/branches/in_between/lib/SQL/Abstract.pm	2009-03-31 19:19:20 UTC (rev 5852)
+++ SQL-Abstract/1.x/branches/in_between/lib/SQL/Abstract.pm	2009-03-31 22:18:37 UTC (rev 5853)
@@ -710,8 +710,7 @@
   $op          = $self->_sqlcase($op);
 
   if (ref $vals eq 'REF') {
-    $clause = shift @$$vals;
-    @bind = @$$vals;
+    ($clause, @bind) = @$$vals;
   }
   else {
     my (@all_sql, @all_bind);