[Bast-commits] r9673 - SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-09-02 05:40:03 +0100 (Thu, 02 Sep 2010)
New Revision: 9673

Modified:
   SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
Log:
less warnings

Modified: SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
===================================================================
--- SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-09-02 04:21:19 UTC (rev 9672)
+++ SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-09-02 04:40:03 UTC (rev 9673)
@@ -210,7 +210,7 @@
    my $tree = shift;
    $tree = $tree->[0] while ref $tree;
 
-   lc $tree eq 'select';
+   defined $tree && lc $tree eq 'select';
 }
 
 sub unparse {