From: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
Date: Thu, 2 Sep 2010 04:40:03 +0000 (+0000)
Subject: less warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ca8aec12713041e536fd9e71194e63abfc6aba1e;p=scpubgit%2FQ-Branch.git

less warnings
---

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 {