You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by ka...@apache.org on 2005/06/06 13:59:05 UTC
cvs commit: tcl-rivet/rivet/packages/dio dio.tcl
karl 2005/06/06 04:59:05
Modified: rivet/packages/dio dio.tcl
Log:
Do the forall in the DIO forall method before checking for an error. That way
if the forall gets an error, we'll get the error.
Revision Changes Path
1.19 +4 -3 tcl-rivet/rivet/packages/dio/dio.tcl
Index: dio.tcl
===================================================================
RCS file: /home/cvs/tcl-rivet/rivet/packages/dio/dio.tcl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- dio.tcl 7 Dec 2004 20:16:00 -0000 1.18
+++ dio.tcl 6 Jun 2005 11:59:05 -0000 1.19
@@ -347,6 +347,10 @@
set res [exec $req]
+ $res forall -array $arrayName {
+ uplevel 1 $body
+ }
+
if {[$res error]} {
set errinf [$res errorinfo]
$res destroy
@@ -354,9 +358,6 @@
}
set ret [$res numrows]
- $res forall -array $arrayName {
- uplevel 1 $body
- }
$res destroy
return $ret
}
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org