From 73b6d8dcdb2fe2524b3f12e12a2b34cd0163b005 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Thu, 8 May 2025 10:57:51 +0300
Subject: [PATCH] Proper "exists" usage instead of "defined"

---
 zk | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/zk b/zk
index d1bbdf1..2e8c338 100755
--- a/zk
+++ b/zk
@@ -170,7 +170,7 @@ for my $pth (keys %mtimes) {
     next if $#ws == -1;
     $links{$pth} = \@ws;
     foreach (@ws) {
-        if (not defined $backs{$_}) {
+        if (not exists $backs{$_}) {
             my %h;
             $backs{$_} = \%h;
         }
@@ -202,7 +202,7 @@ use File::Basename;
 sub genHTML {
     my $out = shift;
     my $page = shift;
-    my @lnks = defined $links{$page} ? @{$links{$page}} : ();
+    my @lnks = exists $links{$page} ? @{$links{$page}} : ();
     my @rels;
     {
         my $rel;
@@ -258,7 +258,7 @@ sub genHTML {
         print $out "<a id=\"links\"></a><table border=1><caption>Links</caption>\n";
         my $mtime;
         while (my ($i, $l) = each @lnks) {
-            $mtime = (defined $mtimes{$l}) ? $mtimes{$l} : "";
+            $mtime = (exists $mtimes{$l}) ? $mtimes{$l} : "";
             print $out "<tr><td><a href=\"$rels[$i].html\">$l</a></td>
     <td><tt>$mtime</tt></td></tr>\n";
         }
-- 
2.48.1