handle scalarref in arrayref of table names

[dbsrgits/SQL-Abstract.git] / lib / SQL / Abstract.pm

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 632b15c..2a878f7 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -747,11 +747,11 @@ sub _table_to_dq {
   my ($self, $from) = @_;
   if (ref($from) eq 'ARRAY') {
     die "Empty FROM list" unless my @f = @$from;
-    my $dq = $self->_ident_to_dq(shift @f);
+    my $dq = $self->_table_to_dq(shift @f);
     while (my $x = shift @f) {
       $dq = {
         type => DQ_JOIN,
-        join => [ $dq, $self->_ident_to_dq($x) ]
+        join => [ $dq, $self->_table_to_dq($x) ]
       };
     }
     $dq;