From 765889f99d41aa490b8b28d8f177a2a9417a34d5 Mon Sep 17 00:00:00 2001 From: LapVeesh Date: Wed, 13 Nov 2019 19:29:08 +0200 Subject: [PATCH 1/3] actually fix results_exist for pg --- lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm index b5ad6a1..8697530 100644 --- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm +++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm @@ -14,7 +14,7 @@ sub results_exist_as_query { } )->as_query; - $$reified->[0] = "( SELECT EXISTS $$reified->[0] )"; + $$reified->[0] = "( SELECT EXISTS $$reified->[0] ) as forty_two"; $reified; From 9e346ac96d03a029fe269aee006842022b049e4b Mon Sep 17 00:00:00 2001 From: LapVeesh Date: Tue, 10 Dec 2019 09:48:34 +0200 Subject: [PATCH 2/3] moved aliasing to later point --- lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm index 8697530..17fd830 100644 --- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm +++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm @@ -14,7 +14,7 @@ sub results_exist_as_query { } )->as_query; - $$reified->[0] = "( SELECT EXISTS $$reified->[0] ) as forty_two"; + $$reified->[0] = "( SELECT EXISTS $$reified->[0] )"; $reified; @@ -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 From 886976e92dfd53ed2349943099480216880bf207 Mon Sep 17 00:00:00 2001 From: LapVeesh Date: Tue, 10 Dec 2019 15:42:51 +0200 Subject: [PATCH 3/3] fixed silly typo --- lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm index 17fd830..a7a8e5d 100644 --- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm +++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/ResultsExist.pm @@ -31,7 +31,7 @@ sub results_exist { ->schema ->storage ->_select( - $self->results_exist_as_query, + $query, \'*', {}, {},