make INSERT SELECT work

[scpubgit/Q-Branch.git] / lib / SQL / Abstract.pm

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 8fbd784..cd79541 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1054,9 +1054,9 @@ sub _expand_values {
   return { -values => [
     map +(
       ref($_) eq 'HASH'
-        ? $_
+        ? $self->expand_expr($_)
         : +{ -row => [ map $self->expand_expr($_), @$_ ] }
-    ), @$values
+    ), ref($values) eq 'ARRAY' ? @$values : $values
   ] };
 }