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/02/11 16:33:21 UTC
svn commit: r1444830 - in /tcl/rivet/branches/2.0: ChangeLog
rivet/packages/dio/dio.tcl
Author: mxmanghi
Date: Mon Feb 11 15:33:20 2013
New Revision: 1444830
URL: http://svn.apache.org/r1444830
Log:
* rivet/packages/dio/dio.tcl: fixing nasty bug introduced with Rivet 2.0.6.
When method 'store' is updating the call to method update needs a flat
list as last argument, not just a sigle valued list argument
Modified:
tcl/rivet/branches/2.0/ChangeLog
tcl/rivet/branches/2.0/rivet/packages/dio/dio.tcl
Modified: tcl/rivet/branches/2.0/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.0/ChangeLog?rev=1444830&r1=1444829&r2=1444830&view=diff
==============================================================================
--- tcl/rivet/branches/2.0/ChangeLog (original)
+++ tcl/rivet/branches/2.0/ChangeLog Mon Feb 11 15:33:20 2013
@@ -1,3 +1,8 @@
+2012-02-11 Massimo Manghi <mx...@apache.org>
+ * rivet/packages/dio/dio.tcl: fixing nasty bug introduced with Rivet 2.0.6.
+ When method 'store' is updating the call to method update needs a flat
+ list as last argument, not just a sigle valued list argument
+
2012-12-03 Massimo Manghi <mx...@apache.org>
* doc/Makefile.am: Manual pages output encoding set to UTF-8
Modified: tcl/rivet/branches/2.0/rivet/packages/dio/dio.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.0/rivet/packages/dio/dio.tcl?rev=1444830&r1=1444829&r2=1444830&view=diff
==============================================================================
--- tcl/rivet/branches/2.0/rivet/packages/dio/dio.tcl (original)
+++ tcl/rivet/branches/2.0/rivet/packages/dio/dio.tcl Mon Feb 11 15:33:20 2013
@@ -448,11 +448,11 @@ proc handle {interface args} {
$res destroy
if {$numrows} {
- return [eval $this update $arrayName $args]
+ $this update $arrayName {*}$args
} else {
- return [eval $this insert $myTable $arrayName]
+ $this insert $myTable $arrayName
}
-
+ return 1
}
#
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org