#7 regression: orafetch -command doesn't return rc code

[Christoph Bauer]

With oratcl4.3 I wrote this code.

while { [orafetch $c -datavariable row -command {
uplevel $cmd
}]] == 0 } {}

It works as expected. But not with Oratcl 4.4!
In Oratcl_Fetch the call to Tcl_EvalObjEx() overwrites the result. My trivial patch restores the behaviour of Oratcl 4.3:

*** oratcl.c.old Tue Apr 25 16:29:11 2006
--- oratcl.c Tue Oct 2 14:16:22 2007
***************
*** 5984,5989 ****
--- 5984,5991 ----

if (evalObjPtr) {
tcl_return = Tcl_EvalObjEx(interp, evalObjPtr, 0);
+ if( tcl_return == TCL_OK )
+ Tcl_SetObjResult(interp, Tcl_NewIntObj(0));
}

common_exit:

[Todd Helfter]

Logged In: YES
user_id=92123
Originator: NO

This has been accepted.

I've updated the CVS repository for Oratcl 4.4 and the CVS Head so it will be in the next release as well

Thank you
-Todd