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 {