From 4a004bdcd68057abc0ef9ac808c0ae36a812908a Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Thu, 15 May 2025 14:11:45 +0300
Subject: [PATCH] Fixed files ignoring

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

diff --git a/zk b/zk
index ef115e8..5ce87c3 100755
--- a/zk
+++ b/zk
@@ -73,10 +73,10 @@ sub noindex {
     my $mtime;
     sub wanted {
         my $fn = $_;
-        return if ($fn =~ /^[.]/) && ($fn ne q{.});
+        return if (($fn =~ /^[.]/) && ($fn ne q{.}));
         $pth = $File::Find::name;
         $pth = decode q{UTF-8}, $pth;
-        $pth =~ s/^[.][\/]?//;
+        $pth =~ s/^[.]\/?//;
         if (-d $fn) {
             return if isignored "$pth/";
             opendir my $dh, $fn or croak "$!";
@@ -86,14 +86,14 @@ sub noindex {
                 next if /^[.]/;
                 $_ = decode q{UTF-8}, $_;
                 if (-d "$fn/$_") {
-                    next if isignored(($fn eq q{.}) ? $_ : "$fn/$_/");
                     $_ = "$pth/$_/";
                     s/^\///;
+                    next if isignored $_;
                     push @_dirs, $_;
                 } else {
-                    next if isignored(($fn eq q{.}) ? $_ : "$fn/$_");
                     $_ = "$pth/$_";
                     s/^\///;
+                    next if isignored $_;
                     push @_files, $_;
                 }
             }
-- 
2.48.1