diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:33:41 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:33:41 (GMT) |
| commit | 590e25c971a4f7a6663c82a6c901500c72012cea (patch) | |
| tree | 27addef80969d03667baa38a1f7d9c9c704a80a8 /generic/tclClockFmt.c | |
| parent | 6795fcaa4965863daab7cdaa16fff4b551044586 (diff) | |
| download | tcl-590e25c971a4f7a6663c82a6c901500c72012cea.zip tcl-590e25c971a4f7a6663c82a6c901500c72012cea.tar.gz tcl-590e25c971a4f7a6663c82a6c901500c72012cea.tar.bz2 | |
repaired system/current locale caching (also for legacy clock format) and legacy timezone cached as last
Diffstat (limited to 'generic/tclClockFmt.c')
| -rw-r--r-- | generic/tclClockFmt.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclClockFmt.c b/generic/tclClockFmt.c index f965a17..5d3dcaf 100644 --- a/generic/tclClockFmt.c +++ b/generic/tclClockFmt.c @@ -1199,7 +1199,9 @@ ClockLocalizeFormat( clean: Tcl_UnsetObjRef(keyObj); - Tcl_ResetResult(opts->interp); + if (valObj) { + Tcl_ResetResult(opts->interp); + } } return (opts->formatObj = valObj); |