From: Matt S Trout Date: Mon, 30 Sep 2019 01:10:13 +0000 (+0000) Subject: fixup keyword rendering X-Git-Tag: v2.000000~3^2~92 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94b292e199bc49d3f2a493bd31a72b577eb67ef6;p=dbsrgits%2FSQL-Abstract.git fixup keyword rendering --- diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm index 974c48c..a758e5d 100644 --- a/lib/SQL/Abstract.pm +++ b/lib/SQL/Abstract.pm @@ -1433,7 +1433,9 @@ sub _render_literal { sub _render_keyword { my ($self, undef, $keyword) = @_; - return [ $self->_sqlcase(join ' ', split '_', $keyword) ]; + return [ $self->_sqlcase( + ref($keyword) ? $$keyword : join ' ', split '_', $keyword + ) ]; } sub _render_op { @@ -1567,7 +1569,7 @@ sub _render_unop_paren { sub _render_unop_prefix { my ($self, $op, $v) = @_; return $self->join_query_parts(' ', - $self->_sqlcase($op), $v->[0] + { -keyword => \$op }, $v->[0] ); }