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 2013/09/13 18:03:32 UTC
svn commit: r1522991 - /tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl
Author: mxmanghi
Date: Fri Sep 13 16:03:31 2013
New Revision: 1522991
URL: http://svn.apache.org/r1522991
Log:
query for mysql is not converted lowercase. A 'regexp -nocase' is used instead
Modified:
tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl
Modified: tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl?rev=1522991&r1=1522990&r2=1522991&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl (original)
+++ tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl Fri Sep 13 16:03:31 2013
@@ -72,11 +72,12 @@ namespace eval DIO {
# select is a 6 characters word, so let's see if the query is a select
#
set q [::string trim $req]
- set q [::string tolower $q]
+
+# set q [::string tolower $q]
# set q [::string range $q 0 5]
# if {[::string match select $q]} { set cmd mysqlsel }
- if {[regexp {^\(*\s*select\s+} $q]} { set cmd mysqlsel }
+ if {[regexp -nocase {^\(*\s*select\s+} $q]} { set cmd mysqlsel }
set errorinfo ""
if {[catch {$cmd $conn $req} error]} {
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org