X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FTree.pm;h=49dbe0427b0a0e175938a55e27473eba7c0e4068;hb=ca8aec12713041e536fd9e71194e63abfc6aba1e;hp=f967dc96a7085b8ce93b05e3d665bf47e763539a;hpb=1a67e3a081221a2db334654eff110161815120a5;p=scpubgit%2FQ-Branch.git

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index f967dc9..49dbe04 100644
--- 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 {