Warnfree tests

shlomif · Nov 24, 2010 · d282bb5 · d282bb5
1 parent 5e5cbf5
commit d282bb5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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;
       }