From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 17 Mar 2013 22:36:14 +0000 (+0000)
Subject: Cur_Col_Meta for simple literals in RETURNING ... INTO
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=856093aca74d105511076fb90e4c345dea1806e7;p=dbsrgits%2FDBIx-Class-Historic.git

Cur_Col_Meta for simple literals in RETURNING ... INTO
---

diff --git a/lib/DBIx/Class/SQLMaker/Converter/Oracle.pm b/lib/DBIx/Class/SQLMaker/Converter/Oracle.pm
index de3829d..0ba326c 100644
--- a/lib/DBIx/Class/SQLMaker/Converter/Oracle.pm
+++ b/lib/DBIx/Class/SQLMaker/Converter/Oracle.pm
@@ -42,7 +42,10 @@ around _insert_to_dq => sub {
       local $SQL::Abstract::Converter::Cur_Col_Meta = (
         is_Identifier($r_dq)
           ? join('.', @{$r_dq->{elements}})
-          : undef
+          : ((is_Literal($r_dq) and !ref($r_dq->{literal})
+               and $r_dq->{literal} =~ /^\w+$/)
+              ? $r_dq->{literal}
+              : undef)
       );
       $self->_value_to_dq(\($options->{returning_container}[$_]));
     } 0..$ret_count-1