This is an automated email from the ASF dual-hosted git repository.
mxmanghi pushed a commit to branch 3.2
in repository https://gitbox.apache.org/repos/asf/tcl-rivet.git
The following commit(s) were added to refs/heads/3.2 by this push:
new 6d28b12 Fix wrong serial number management
6d28b12 is described below
commit 6d28b129929af30cf189384b44ff325a3c53faf1
Author: Massimo Manghi <[email protected]>
AuthorDate: Fri Oct 24 18:03:20 2025 +0200
Fix wrong serial number management
---
ChangeLog | 5 +++--
rivet/packages/dio/dio_Tdbc.tcl | 10 ++++------
2 files changed, 7 insertions(+), 8 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 29b8edb..7c5f93c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
2025-10-24 Massimo Manghi <[email protected]>
- * 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 <[email protected]>
* 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 @@ namespace eval DIO {
::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 @@ namespace eval DIO {
-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 @@ namespace eval DIO {
if {$clientargs != ""} { lappend connector_cmd {*}$clientargs }
- #puts "evaluating $connector_cmd"
set connector [eval $connector_cmd]
incr connector_n
}
@@ -311,7 +309,7 @@ namespace eval DIO {
# 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 @@ namespace eval DIO {
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} {
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
