From aa47d75db09aadf6d4c184e96a07fef3e52bb20e Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Thu, 8 May 2025 17:29:11 +0300
Subject: [PATCH] Ability to print missing links

---
 zk | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/zk b/zk
index de3dd45..d8e8ba7 100755
--- a/zk
+++ b/zk
@@ -205,9 +205,15 @@ for my $pth (keys %mtimes) {
             $w = $1;
             if ($w =~ /\/$/) {
                 my $w = substr $w, 0, -1;
-                next unless exists $cats{$w};
+                if (not exists $cats{$w}) {
+                    print "missing $w\n" if exists $ENV{ZK_PRINT_MISSING};
+                    next;
+                }
             } else {
-                next unless exists $mtimes{$w};
+                if (not exists $mtimes{$w}) {
+                    print "missing $w\n" if exists $ENV{ZK_PRINT_MISSING};
+                    next;
+                }
             }
             $found{$w} = 1;
         }
-- 
2.48.1