From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 15 Apr 2019 16:45:35 +0000 (+0000)
Subject: LHS of as is interpreted as ident so this is more correct
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=75d47dd0903d3826f32fde21c8998196565dab40;p=scpubgit%2FQ-Branch.git

LHS of as is interpreted as ident so this is more correct
---

diff --git a/xt/clauses.t b/xt/clauses.t
index ce75f17..a7d948d 100644
--- a/xt/clauses.t
+++ b/xt/clauses.t
@@ -165,8 +165,8 @@ is_same_sql(
 }
 
 ($sql) = $sqlac->select({
-  select => { -as => [ 1, 'x' ] },
-  union => { -select => { select => { -as => [ 2, 'x' ] } } },
+  select => { -as => [ \1, 'x' ] },
+  union => { -select => { select => { -as => [ \2, 'x' ] } } },
   order_by => { -desc => 'x' },
 });