[Bast-commits] r9777 - SQL-Abstract/1.x/trunk/lib/SQL/Abstract
frew at dev.catalyst.perl.org
frew at dev.catalyst.perl.org
Sat Oct 23 01:49:36 GMT 2010
Author: frew
Date: 2010-10-23 01:49:36 +0000 (Sat, 23 Oct 2010)
New Revision: 9777
Modified:
SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm
Log:
fix placeholder quoting
Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm 2010-10-22 14:32:27 UTC (rev 9776)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm 2010-10-23 01:49:36 UTC (rev 9777)
@@ -167,7 +167,7 @@
? 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 @@
defined $token
and
length $token
- and
+ and
$token =~ /\S/
);
}
More information about the Bast-commits
mailing list