From: Matt S Trout Date: Wed, 17 Apr 2019 02:13:45 +0000 (+0000) Subject: fixup sigil usage X-Git-Tag: v1.90_01~193 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a17df2230d5e2ba1cec0508d2ba732124245d5a6;p=dbsrgits%2FSQL-Abstract.git fixup sigil usage --- diff --git a/lib/SQL/Abstract/Clauses.pm b/lib/SQL/Abstract/Clauses.pm index cb9d07b..2dd9c4e 100644 --- a/lib/SQL/Abstract/Clauses.pm +++ b/lib/SQL/Abstract/Clauses.pm @@ -311,7 +311,7 @@ BEGIN { } } -sub statement_list { sort keys ${$_[0]}{clauses_of} } +sub statement_list { sort keys %{$_[0]->{clauses_of}} } sub clauses_of { my ($self, $of, @clauses) = @_;