From: Sergey Matveev <stargrave@stargrave.org>
Date: Thu, 8 May 2025 16:25:46 +0000 (+0300)
Subject: Do not ignore root directory
X-Git-Tag: v1.0.0~34
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=4fe90bf6c7a99cf4470f15e626d6ae036f0d1a6a;p=swg.git

Do not ignore root directory
---

diff --git a/zk b/zk
index 04b0829..5179aa3 100755
--- a/zk
+++ b/zk
@@ -160,7 +160,7 @@ my %cats;
     use POSIX qw(strftime);
     sub wanted {
         my $fn = $_;
-        return if $fn =~ /^\./;
+        return if ($fn =~ /^\./) and ($fn ne ".");
         my $pth = $File::Find::name;
         $pth =~ s/^\.\/?//;
         if (-d $fn) {