From: Sergey Matveev <stargrave@stargrave.org>
Date: Thu, 8 May 2025 07:57:51 +0000 (+0300)
Subject: Proper "exists" usage instead of "defined"
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=73b6d8dcdb2fe2524b3f12e12a2b34cd0163b005;p=zk.git

Proper "exists" usage instead of "defined"
---

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";
         }