From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 24 Nov 2010 16:44:40 +0000 (+0100)
Subject: Warnfree tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d282bb5005b32a73d3120560fb895c5e753c7ef3;p=scpubgit%2FQ-Branch.git

Warnfree tests
---

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index 0db1757..17454dc 100644
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -545,7 +545,7 @@ sub _parenthesis_unroll {
 
     for my $child (@{$ast->[1]}) {
       # the current node in this loop is *always* a PAREN
-      if (not ref $child or not $child->[0] eq 'PAREN') {
+      if (! ref $child or ! @$child or $child->[0] ne 'PAREN') {
         push @children, $child;
         next;
       }