X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FCompat.pm;h=419fb52bf24bd8807a81a30affa613fc964aefc6;hb=0073ca4362c48f62d13fecd453039afea9146919;hp=e45f50f11f2ab4aa16e6be4632ba29b6b759d9d8;hpb=49cc8cb6cf0cfd10c6dfb7158af9f0656993a23b;p=dbsrgits%2FSQL-Abstract-2.0-ish.git diff --git a/lib/SQL/Abstract/Compat.pm b/lib/SQL/Abstract/Compat.pm index e45f50f..419fb52 100644 --- a/lib/SQL/Abstract/Compat.pm +++ b/lib/SQL/Abstract/Compat.pm @@ -104,7 +104,6 @@ class SQL::Abstract::Compat { method tablespec(Str|ArrayRef|ScalarRef $from) { return $self->mk_name(0, $from) - if is_Str($from); } method recurse_where(WhereType $ast, LogicEnum $logic?) returns (AST) { @@ -218,10 +217,7 @@ class SQL::Abstract::Compat { my $ast = { -type => 'expr', - - # Handle e => { '!=', [qw(f g)] }. - # SQLA treats this as a 'DWIM' since e != f AND e != g doesn't make sense - op => $op eq '!=' ? 'or' : 'and', + op => 'or', args => [ map { $self->field($key, $_) } @{$value} ]