X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FClauses.pm;h=7b4cc7ef7e5a0d84c1b9ff088f12a353364a2dca;hb=0236f122f73090f9773bae7a6941a286c86ff889;hp=cb9d07b2dded30eb2af1e15473a3d0d3ddb580d3;hpb=54a2a1e592dde8602557b10378c475618f7292f0;p=scpubgit%2FQ-Branch.git

diff --git a/lib/SQL/Abstract/Clauses.pm b/lib/SQL/Abstract/Clauses.pm
index cb9d07b..7b4cc7e 100644
--- a/lib/SQL/Abstract/Clauses.pm
+++ b/lib/SQL/Abstract/Clauses.pm
@@ -168,7 +168,7 @@ sub _render_statement {
     next unless defined($sql) and length($sql);
     push @parts, \@part;
   }
-  my ($sql, @bind) = $self->join_clauses(' ', @parts);
+  my ($sql, @bind) = $self->join_query_parts(' ', @parts);
   return (
     (our $Render_Top_Level ? $sql : '('.$sql.')'),
     @bind
@@ -264,7 +264,7 @@ sub _expand_values {
 
 sub _render_values {
   my ($self, undef, $values) = @_;
-  my ($v_sql, @bind) = $self->join_clauses(
+  my ($v_sql, @bind) = $self->join_query_parts(
     ', ',
     map [ $self->render_aqt($_) ],
       ref($values) eq 'ARRAY' ? @$values : $values
@@ -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) = @_;