From 18f5b74e83070f0be1e3728339dd742426886b33 Mon Sep 17 00:00:00 2001
From: David Cantrell <david@cantrell.org.uk>
Date: Wed, 24 Feb 2021 19:25:08 +0000
Subject: [PATCH] perl 5.8 compatibility

---
 lib/SQL/Abstract/Plugin/ExtraClauses.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;