From: Ash Berlin <ash_github@firemirror.com>
Date: Tue, 10 Mar 2009 09:38:51 +0000 (+0000)
Subject: Comment logic
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0406569b4bf96faab521f575b4811c4dd7aece18;p=dbsrgits%2FSQL-Abstract-2.0-ish.git

Comment logic
---

diff --git a/lib/SQL/Abstract/AST/v1.pm b/lib/SQL/Abstract/AST/v1.pm
index 7d269e4..5a2ccc9 100644
--- a/lib/SQL/Abstract/AST/v1.pm
+++ b/lib/SQL/Abstract/AST/v1.pm
@@ -114,6 +114,8 @@ class SQL::Abstract::AST::v1 extends SQL::Abstract {
         $prio = $SQL::Abstract::PRIO{$1};
         shift @$clauses;
       } else {
+        # If first is not a ref, and its not -and or -or, then $clauses
+        # contains just a single clause
         $clauses = [ $clauses ];
       }
     }