From: Matt S Trout Date: Mon, 17 Sep 2018 01:46:00 +0000 (+0000) Subject: switch update to using _render_expr X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbb4eeaf66b42a318f3629629447cb5158c050b1;p=scpubgit%2FQ-Branch.git switch update to using _render_expr --- diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm index d5c0587..87c7b69 100644 --- a/lib/SQL/Abstract.pm +++ b/lib/SQL/Abstract.pm @@ -433,8 +433,10 @@ sub _update_set_values { puke 'Operator calls in update must be in the form { -op => $arg }' if (@rest or not $op =~ /^\-(.+)/); - local $self->{_nested_func_lhs} = $k; - my ($sql, @bind) = $self->_where_unary_op($1, $arg); + local our $Cur_Col_Meta = $k; + my ($sql, @bind) = $self->_render_expr( + $self->_expand_expr_hashpair($op, $arg) + ); push @set, "$label = $sql"; push @all_bind, @bind;