From: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
Date: Sat, 23 Oct 2010 01:49:36 +0000 (+0000)
Subject: fix placeholder quoting
X-Git-Tag: v1.70~28
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09931431e4c91c56a7096ca17213fe40fadfe2ce;p=dbsrgits%2FSQL-Abstract.git

fix placeholder quoting
---

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index 02de4d9..ee8509c 100644
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -167,7 +167,7 @@ my %profiles = (
         ? do {
           my $c = \&Term::ANSIColor::color;
           (
-            placeholder_surround => [$c->('black on_cyan'), $c->('reset')],
+            placeholder_surround => [q(') . $c->('black on_magenta'), $c->('reset') . q(')],
             colormap => {
               select        => [$c->('red'), $c->('reset')],
               'insert into' => [$c->('red'), $c->('reset')],
@@ -248,7 +248,7 @@ sub parse {
       defined $token
         and
       length $token
-        and 
+        and
       $token =~ /\S/
     );
   }