(windows, noregistry only) invalidate base fields cache for TZ ":localtime", if TZ-epoch changed (without registry module and real TZ name, the local data epoch may be updated, but cache may contain offset of previos TZ, so ensure it'd be invalidated)

sebres · sebres · commit 18fa6f692868 · 2025-08-04T22:14:18.000+02:00
diff --git a/generic/tclClock.c b/generic/tclClock.c
@@ -1035,7 +1035,11 @@ ClockConfigureObjCmd(
 		    Tcl_SetObjRef(dataPtr->systemTimeZone, objv[i]);
 		    Tcl_UnsetObjRef(dataPtr->systemSetupTZData);
 		}
-		dataPtr->lastTZEpoch = lastTZEpoch;
+		if (dataPtr->lastTZEpoch != lastTZEpoch) {
+		    dataPtr->lastTZEpoch = lastTZEpoch;
+		    /* TZ epoch changed - invalidate base-cache */
+		    Tcl_UnsetObjRef(dataPtr->lastBase.timezoneObj);
+		}
 	    }
 	    if (i+1 >= objc && dataPtr->systemTimeZone != NULL
 			 && dataPtr->lastTZEpoch == lastTZEpoch) {

Original file line number	Diff line number	Diff line change
`@@ -1035,7 +1035,11 @@ ClockConfigureObjCmd(`
`1035`	`1035`	`Tcl_SetObjRef(dataPtr->systemTimeZone, objv[i]);`
`1036`	`1036`	`Tcl_UnsetObjRef(dataPtr->systemSetupTZData);`
`1037`	`1037`	`}`
`1038`		`- dataPtr->lastTZEpoch = lastTZEpoch;`
	`1038`	`+ if (dataPtr->lastTZEpoch != lastTZEpoch) {`
	`1039`	`+ dataPtr->lastTZEpoch = lastTZEpoch;`
	`1040`	`+ /* TZ epoch changed - invalidate base-cache */`
	`1041`	`+ Tcl_UnsetObjRef(dataPtr->lastBase.timezoneObj);`
	`1042`	`+ }`
`1039`	`1043`	`}`
`1040`	`1044`	`if (i+1 >= objc && dataPtr->systemTimeZone != NULL`
`1041`	`1045`	`&& dataPtr->lastTZEpoch == lastTZEpoch) {`