Fix wrong serial number management
diff --git a/ChangeLog b/ChangeLog
index 8fc6119..68ced10 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
2025-10-24 Massimo Manghi <mxmanghi@apache.org>
- * doc/rivet.xml.in: reformat and align entities definitions
- * doc/xml/commands.xml: changed 'inspect' command definition in reference list
+ * doc/rivet.xml.in: reformat and align entities definitions
+ * doc/xml/commands.xml: changed 'inspect' command definition in reference list
+ * rivet/packages/dio/dio_Tdbc.tcl: fix wrong serial number management
2025-10-23 Massimo Manghi <mxmanghi@apache.org>
* rivet/packages/dio/formatters.tcl: a typo slipped in and spoiled
diff --git a/rivet/packages/dio/dio_Tdbc.tcl b/rivet/packages/dio/dio_Tdbc.tcl
index 3ab3f77..0e06e80 100644
--- a/rivet/packages/dio/dio_Tdbc.tcl
+++ b/rivet/packages/dio/dio_Tdbc.tcl
@@ -27,7 +27,7 @@
::itcl::class Tdbc {
inherit Database
- private common connector_n
+ private common connector_n -1
private variable connector
private variable connector_name
private variable tdbc_connector
@@ -37,7 +37,6 @@
-timeout]
constructor {interface_name args} {eval configure -interface $interface_name $args} {
- set connector_n -1
set connector ""
# I should check this one: we only accept connector
@@ -100,7 +99,6 @@
if {$clientargs != ""} { lappend connector_cmd {*}$clientargs }
- #puts "evaluating $connector_cmd"
set connector [eval $connector_cmd]
incr connector_n
}
@@ -311,7 +309,7 @@
# errorinfo is a public variable of the parent class Database.
# Not a good object design practice
- if {[catch {set tdbc_result [uplevel 1 $tdbc_statement execute]} errorinfo]} {
+ if {[catch {set tdbc_result [uplevel 1 $tdbc_statement execute]} e errorinfo]} {
set result_obj [$this result TDBC -error 1 -errorinfo [::list $errorinfo] -isselect false]
} else {
@@ -356,8 +354,8 @@
Result::destroy
}
- public method current_row {} {return $rowid}
- public method cached_results {} {return $cached_rows}
+ public method current_row {} { return $rowid }
+ public method cached_results {} { return $cached_rows }
public method nextrow {} {
if {[llength $cached_rows] == 0} {
