X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FConverter.pm;h=4890ee0b120e269373066e4420483d255ad2c8c2;hb=3ed3c560a5ef85f8ab028b33137023674bc187e5;hp=9a48eb4ece4ed165537235d1e806f59d8b317df0;hpb=4caa46205fc8a83924340140a6242392ea767ef0;p=dbsrgits%2FSQL-Abstract.git

diff --git a/lib/SQL/Abstract/Converter.pm b/lib/SQL/Abstract/Converter.pm
index 9a48eb4..4890ee0 100644
--- a/lib/SQL/Abstract/Converter.pm
+++ b/lib/SQL/Abstract/Converter.pm
@@ -62,10 +62,7 @@ sub _literal_to_dq {
   my ($self, $literal) = @_;
   my @bind;
   ($literal, @bind) = @$literal if ref($literal) eq 'ARRAY';
-  +{
-    subtype => 'SQL',
-    %{ Literal($literal, [ $self->_bind_to_dq(@bind) ]) }
-  };
+  Literal('SQL', $literal, [ $self->_bind_to_dq(@bind) ]);
 }
 
 sub _bind_to_dq {
@@ -427,10 +424,7 @@ sub _where_hashpair_to_dq {
         map +{ $k => $_ }, @$v
       ], $logic);
     } elsif (ref($v) eq 'SCALAR' or (ref($v) eq 'REF' and ref($$v) eq 'ARRAY')) {
-      return +{
-        subtype => 'SQL',
-        %{ Literal([ $self->_ident_to_dq($k), $self->_literal_to_dq($$v) ]) },
-      };
+      return Literal('SQL', [ $self->_ident_to_dq($k), $self->_literal_to_dq($$v) ]);
     }
     my ($op, $rhs) = do {
       if (ref($v) eq 'HASH') {