From: Matt S Trout Date: Thu, 21 Mar 2019 04:12:54 +0000 (+0000) Subject: simplify unop_postfix code X-Git-Tag: v2.000000~3^2~377 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00a8cd5b9884113dfbed13171f6b7a2dcc18444b;p=dbsrgits%2FSQL-Abstract.git simplify unop_postfix code --- diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm index 99a2ce9..4d121f5 100644 --- a/lib/SQL/Abstract.pm +++ b/lib/SQL/Abstract.pm @@ -1082,9 +1082,7 @@ sub _render_op { sub _render_unop_postfix { my ($self, $op, $v) = @_; - my ($arg, @argh) = @$v; - puke "Argh" if @argh; - my ($expr_sql, @bind) = $self->render_aqt($arg); + my ($expr_sql, @bind) = $self->render_aqt($v->[0]); my $op_sql = $self->_sqlcase($op); return ($expr_sql.' '.$op_sql, @bind); }