X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FData%2FQuery%2FRenderer%2FSQL%2FNaive.pm;h=6cfce82d38c55c28b26b9d94a1615944f7a31b0f;hb=713f29aad5577b9b2def21ae437bff994c3c34b0;hp=1da16b9699a53a47b566795ade4ad18db850e00d;hpb=4cea30e6c3d85b444f106d26fd6398110350fa1b;p=dbsrgits%2FData-Query.git

diff --git a/lib/Data/Query/Renderer/SQL/Naive.pm b/lib/Data/Query/Renderer/SQL/Naive.pm
index 1da16b9..6cfce82 100644
--- a/lib/Data/Query/Renderer/SQL/Naive.pm
+++ b/lib/Data/Query/Renderer/SQL/Naive.pm
@@ -102,7 +102,7 @@ sub _render_identifier {
         $_ eq '*' # Yes, this means you can't have a column just called '*'.
           ? $_    # Yes, this is a feature. Go shoot the DBA if he disagrees.
           : ( # reserved are stored uc, quote if non-word
-              $always_quote || $res_check->{+uc} || /\W/
+              ($always_quote and $q1) || $res_check->{+uc} || /\W/
                 ? $q1.$_.$q2
                 : $_
             )
@@ -123,7 +123,7 @@ sub _render_operator {
     $op->{$self->_operator_type} = $self->_convert_op($dq);
   }
   my $op_name = $op->{$self->_operator_type};
-  if (my $op_type = $self->{simple_ops}{$op_name}) {
+  if (my $op_type = $self->simple_ops->{$op_name}) {
     return $self->${\"_handle_op_type_${op_type}"}($op_name, $dq);
   } elsif (my $meth = $self->can("_handle_op_special_${op_name}")) {
     return $self->$meth($dq);