You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2016/11/16 23:13:08 UTC

svn commit: r1770070 - in /tcl/rivet/trunk: ChangeLog rivet/packages/dio/dio_Postgresql.tcl

Author: mxmanghi
Date: Wed Nov 16 23:13:08 2016
New Revision: 1770070

URL: http://svn.apache.org/viewvc?rev=1770070&view=rev
Log:
    * rivet/packages/dio/dio_Postgresql.tcl: applied
    consistent single quote character handling by
    calling PgTcl function pg_quote (closes bug #60378)


Modified:
    tcl/rivet/trunk/ChangeLog
    tcl/rivet/trunk/rivet/packages/dio/dio_Postgresql.tcl

Modified: tcl/rivet/trunk/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/ChangeLog?rev=1770070&r1=1770069&r2=1770070&view=diff
==============================================================================
--- tcl/rivet/trunk/ChangeLog (original)
+++ tcl/rivet/trunk/ChangeLog Wed Nov 16 23:13:08 2016
@@ -1,3 +1,8 @@
+2016-11-17 Massimo Manghi <mx...@apache.org>
+    * rivet/packages/dio/dio_Postgresql.tcl: applied
+    consistent single quote character handling by
+    calling PgTcl function pg_quote (closes bug #60378)
+
 2016-11-15 Massimo Manghi <mx...@apache.org>
     * rivet/init.tcl.in: trimming error buffer
     to make test message matching easier

Modified: tcl/rivet/trunk/rivet/packages/dio/dio_Postgresql.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/packages/dio/dio_Postgresql.tcl?rev=1770070&r1=1770069&r2=1770070&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/packages/dio/dio_Postgresql.tcl (original)
+++ tcl/rivet/trunk/rivet/packages/dio/dio_Postgresql.tcl Wed Nov 16 23:13:08 2016
@@ -151,11 +151,11 @@ namespace eval DIO {
                 }
                 default {
                     # no special code for that type!!
-                    return "'[quote $val]'"
+                    return [pg_quote $val]
                 }
             }
         } else {
-                return "'[quote $val]'"
+                return [pg_quote $val]
         }
     }
 



---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org