diff --git a/lib/SQL/Abstract/Plugin/ExtraClauses.pm b/lib/SQL/Abstract/Plugin/ExtraClauses.pm index 79912bfc..bad59a80 100644 --- a/lib/SQL/Abstract/Plugin/ExtraClauses.pm +++ b/lib/SQL/Abstract/Plugin/ExtraClauses.pm @@ -123,7 +123,7 @@ sub _expand_select { return $exp unless my $setop = (my $sel = $exp->{-select})->{setop}; if (my @keys = grep $sel->{$_}, @$before_setop) { my %inner; @inner{@keys} = delete @{$sel}{@keys}; - unshift @{(values(%$setop))[0]{queries}}, + unshift @{(values(%$setop))[0]->{queries}}, { -select => \%inner }; } return $exp;