[temp-commit]: ClockFreeScan back-ported (cherry picked), all tests case passed + several new test-cases for bug fixing implemented here;

environment epoch ported, several fixes for the time zone / tzdata caching ported;
mem-leak fix + memory leak test cases passed

1 files changed, 9 insertions, 3 deletions

diff --git a/library/clock.tcl b/library/clock.tcl
index b4a7639..ace4176 100755
--- a/library/clock.tcl
+++ b/library/clock.tcl
@@ -671,7 +671,9 @@ proc ::tcl::clock::format { args } {
     # Get the data for time changes in the given zone
 
     if {$timezone eq ""} {
-	set timezone [GetSystemTimeZone]
+	if {[set timezone [configure -system-tz]] eq ""} {
+	    set timezone [GetSystemTimeZone]
+	}
     }
     if {![info exists TZData($timezone)]} {
 	if {[catch {SetupTimeZone $timezone} retval opts]} {
@@ -1202,7 +1204,9 @@ proc ::tcl::clock::__org_scan { args } {
     set format {}
     set gmt 0
     set locale c
-    set timezone [GetSystemTimeZone]
+    if {[set timezone [configure -system-tz]] eq ""} {
+	set timezone [GetSystemTimeZone]
+    }
 
     # Pick up command line options.
 
@@ -4083,7 +4087,9 @@ proc ::tcl::clock::add { clockval args } {
     set offsets {}
     set gmt 0
     set locale c
-    set timezone [GetSystemTimeZone]
+    if {[set timezone [configure -system-tz]] eq ""} {
+	set timezone [GetSystemTimeZone]
+    }
 
     foreach { a b } $args {
 	if { [string is integer -strict $a] } {