D1942.id4912.diff
No OneTemporary
Actions

Size

888 B

Referenced Files

None

Subscribers

None

D1942.id4912.diff
View Options

	diff --git a/Tech.tcl b/Tech.tcl
	--- a/Tech.tcl
	+++ b/Tech.tcl
	@@ -1,5 +1,3 @@
	-unbind dcc n rehash *dcc:rehash
	- bind dcc T rehash dcc:rehash
	bind dcc T s dcc:source
	unbind dcc n tcl *dcc:tcl
	bind dcc T tcl dcc:tcl
	@@ -16,6 +14,8 @@

	bind dcc T env dcc:env

	+ bind evnt - prerehash evnt:prerehash
	+
	#
	# Helpers methods
	#
	@@ -47,15 +47,6 @@
	# Tech commands
	#

	-#Disconnect SQL, then rehash (to prevent sql connect fatal errors)
	-proc dcc:rehash {handle idx arg} {
	- catch {
	- sql disconnect
	- sql2 disconnect
	- }
	- *dcc:rehash $handle $idx $arg
	-}
	-
	#Loads a script
	proc dcc:source {handle idx arg} {
	if {$arg == ""} {
	@@ -209,3 +200,14 @@
	putdcc $idx "[format %-[strlenmax $keys]s $key] $value"
	}
	}
	+
	+#
	+# UNIX signals
	+#
	+
	+proc evnt:prerehash {type} {
	+ catch {
	+ sql disconnect
	+ sql2 disconnect
	+ }
	+}