From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 7 May 2025 19:15:38 +0000 (+0300)
Subject: Fix mtime substitution
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=418a38b3e97beec7d876d9b61e3bb2dadf516aea;p=zk.git

Fix mtime substitution
---

diff --git a/zk b/zk
index 4420ba9..20a1fb3 100755
--- a/zk
+++ b/zk
@@ -262,7 +262,7 @@ sub genHTML {
         print $out "<table border=1><caption>Links</caption>\n";
         my $mtime;
         while (my ($i, $l) = each @lnks) {
-            $mtime = (defined $mtimes{$l}) ? defined $mtimes{$l} : "";
+            $mtime = (defined $mtimes{$l}) ? $mtimes{$l} : "";
             print $out "<tr><td><a href=\"$rels[$i].html\">$l</a></td>
     <td><tt>$mtime</tt></td></tr>\n";
         }