From: Sergey Matveev <stargrave@stargrave.org>
Date: Mon, 14 Apr 2025 06:35:34 +0000 (+0300)
Subject: Add TAI only if time is after 1970
X-Git-Url: http://www.git.cypherpunks.su/?a=commitdiff_plain;h=d71335b390e4a983655b080105d24b3060cf5e62a68561a06cf2a8c0aeeb09ef;p=keks.git

Add TAI only if time is after 1970
---

diff --git a/tcl/keks.tcl b/tcl/keks.tcl
index cad23e7..3eb23d9 100755
--- a/tcl/keks.tcl
+++ b/tcl/keks.tcl
@@ -271,7 +271,10 @@ proc toTAI64 {v} {
             break
         }
     }
-    set v [expr {$v + 10 + $i}]
+    if {$v > 0} {
+        incr v 10
+    }
+    incr v $i
     if {$v == [lindex $Leapsecs $i]} {
         incr v
     }