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:00:28 UTC
svn commit: r1522988 - /tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl
Author: mxmanghi
Date: Fri Sep 13 16:00:27 2013
New Revision: 1522988
URL: http://svn.apache.org/r1522988
Log:
last commit had a problem with an argument to a regexp
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=1522988&r1=1522987&r2=1522988&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:00:27 2013
@@ -76,7 +76,7 @@ namespace eval DIO {
# set q [::string range $q 0 5]
# if {[::string match select $q]} { set cmd mysqlsel }
- if {[regexp {^\(*\s*select\s+} $pp]} { set cmd mysqlsel }
+ if {[regexp {^\(*\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