diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm index b5ad6a1..17fd830 100644 --- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm +++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm @@ -24,6 +24,9 @@ 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