Finish a RHS branch before applying ASC/DESC mods

[dbsrgits/SQL-Abstract.git] / lib / SQL / Abstract / Tree.pm

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index 5c887db..60a1aa2 100644 (file)
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -478,6 +478,7 @@ sub _recurse_parse {
 
       # deal with post-fix operators (asc/desc)
       if ($tokens->[0] =~ $asc_desc_re) {
+        return @left if $state == PARSE_RHS;
         @left = [ ('-' . uc (shift @$tokens)) => [ @left ] ];
       }