diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm index b5ad6a1..a7a8e5d 100644 --- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm +++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm @@ -24,11 +24,14 @@ sub results_exist_as_query { sub results_exist { my $self = shift; + my $query = $self->results_exist_as_query; + $$query->[0] .= 'as _existence_subq'; + my( undef, $sth ) = $self->result_source ->schema ->storage ->_select( - $self->results_exist_as_query, + $query, \'*', {}, {},