projects
/
scpubgit/Q-Branch.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
less warnings
[scpubgit/Q-Branch.git]
/
lib
/
SQL
/
Abstract
/
Tree.pm
diff --git
a/lib/SQL/Abstract/Tree.pm
b/lib/SQL/Abstract/Tree.pm
index
f967dc9
..
49dbe04
100644
(file)
--- a/
lib/SQL/Abstract/Tree.pm
+++ b/
lib/SQL/Abstract/Tree.pm
@@
-210,7
+210,7
@@
sub _is_select {
my $tree = shift;
$tree = $tree->[0] while ref $tree;
- lc $tree eq 'select';
+ defined $tree && lc $tree eq 'select';
}
sub unparse {