projects
/
scpubgit/Q-Branch.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
don't re-expand maybe list expr when already list
[scpubgit/Q-Branch.git]
/
lib
/
SQL
/
Abstract.pm
diff --git
a/lib/SQL/Abstract.pm
b/lib/SQL/Abstract.pm
index
ec3bc01
..
f736487
100644
(file)
--- a/
lib/SQL/Abstract.pm
+++ b/
lib/SQL/Abstract.pm
@@
-1343,6
+1343,7
@@
sub _table {
sub _expand_maybe_list_expr {
my ($self, $expr, $default) = @_;
+ return $expr if ref($expr) eq 'HASH' and (($expr->{-op}||[''])->[0] eq ',');
return +{ -op => [ ',',
map $self->expand_expr($_, $default),
ref($expr) eq 'ARRAY' ? @$expr : $expr