Simple work on update errors

[dbsrgits/SQL-Abstract-2.0-ish.git] / lib / SQL / Abstract / AST / v1.pm

diff --git a/lib/SQL/Abstract/AST/v1.pm b/lib/SQL/Abstract/AST/v1.pm
index 1d49094..604c02a 100644 (file)
--- a/lib/SQL/Abstract/AST/v1.pm
+++ b/lib/SQL/Abstract/AST/v1.pm
@@ -97,10 +97,9 @@ class SQL::Abstract::AST::v1 extends SQL::Abstract {
         'SET'
     );
 
-    confess 'update: number of columns doesn\'t match values: ' . dump($ast)
+    confess 'update: Number of values does not match columns: ' . dump($ast)
       if @{$ast->{columns}} != @{$ast->{values}};
     
-    $DB::single = 1;
     my $list = {
       -type => 'list',
       args => [ map {