summaryrefslogtreecommitdiffstats
path: root/library/clock.tcl
diff options
context:
space:
mode:
authorgahr <gahr@gahr.ch>2016-02-23 16:31:18 (GMT)
committergahr <gahr@gahr.ch>2016-02-23 16:31:18 (GMT)
commite644c2cde0ad8530628e57c4dba5797fc5ff3b85 (patch)
treed1d7688693a4d47297d51538354f9ea9b606dad6 /library/clock.tcl
parent03dd6c13603af9d6792030412f52d942fc2eaefd (diff)
downloadtcl-e644c2cde0ad8530628e57c4dba5797fc5ff3b85.zip
tcl-e644c2cde0ad8530628e57c4dba5797fc5ff3b85.tar.gz
tcl-e644c2cde0ad8530628e57c4dba5797fc5ff3b85.tar.bz2
Make sure that adding 0 weekdays doesn't result in going back in time
Diffstat (limited to 'library/clock.tcl')
-rwxr-xr-xlibrary/clock.tcl4
1 files changed, 4 insertions, 0 deletions
diff --git a/library/clock.tcl b/library/clock.tcl
index 231f1ae..535a67d 100755
--- a/library/clock.tcl
+++ b/library/clock.tcl
@@ -4449,6 +4449,10 @@ proc ::tcl::clock::AddMonths { months clockval timezone changeover } {
proc ::tcl::clock::AddWeekDays { days clockval timezone changeover } {
+ if {$days == 0} {
+ return $clockval
+ }
+
set day [format $clockval -format %u]
set weeks [expr {$days / 5}]