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: v1.90_01~473
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ca3da680ad43fced23878274d7b8c62b168e120e;p=dbsrgits%2FSQL-Abstract.git

use -literal for top level exprs
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 9ce3d1b..232b290 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;
 }