From: Sergey Matveev <stargrave@stargrave.org>
Date: Thu, 15 May 2025 11:11:45 +0000 (+0300)
Subject: Fixed files ignoring
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=4a004bdcd68057abc0ef9ac808c0ae36a812908a;p=swg.git

Fixed files ignoring
---

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, $_;
                 }
             }