From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 8 Sep 2018 01:55:26 +0000 (+0000)
Subject: use -literal for top level exprs
X-Git-Tag: v2.000000~3^2~494
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a7040763630ba9c134d480288944ff550d003326;p=dbsrgits%2FSQL-Abstract.git

use -literal for top level exprs
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index deac801..dfeb0f1 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -576,6 +576,9 @@ sub _expand_expr {
     }
     return { '-'.$logic => \@res };
   }
+  if (my $literal = is_literal_value($expr)) {
+    return +{ -literal => $literal };
+  }
   return $expr;
 }