From 3f7ded9452426c79754339f51f1fea4ea021b122 Mon Sep 17 00:00:00 2001
From: AlDanial <al.danial@gmail.com>
Date: Tue, 3 Sep 2024 20:59:43 -0700
Subject: [PATCH] cd to requested dir for files() to work properly, #851

---
 Unix/cloc | 9 ++++++---
 cloc      | 9 ++++++---
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/Unix/cloc b/Unix/cloc
index 19d60d2d..47f9855b 100755
--- a/Unix/cloc
+++ b/Unix/cloc
@@ -5847,14 +5847,17 @@ sub make_file_list {                         # {{{1
                 push @candidate_file_list, grep(is_file("$dir/$_"), readdir(DIR));
                 closedir(DIR);
             }
+            my $start_dir = cwd();
             foreach my $F (@candidate_file_list) {
                 # pretend to be File::Find's wanted() routine, namely subroutine files(),
                 # to apply all file filter rules
                 $File::Find::dir  = $dir;
-                $File::Find::name = $F;
-                $_ = "$dir/$F";
+                $File::Find::name = basename $F;
+                $_ = basename $F;
+                chdir $dir;
                 files();  # side effect:  populates @file_list
             }
+            chdir $start_dir;
             # ... then prepend the directory name to each file
             @file_list = map { "$dir/$_" } @file_list;
         } else {
@@ -6259,7 +6262,7 @@ sub files {                                  # {{{1
         }
     } else {
         # only look at the basename
-        if ($opt_match_f    ) { return unless /$opt_match_f/;     }
+        if ($opt_match_f    ) { return unless m{$opt_match_f}; }
         if (@opt_not_match_f) { return if     any_match($_, 0, \$rule, @opt_not_match_f)}
     }
     if ($opt_match_d) {
diff --git a/cloc b/cloc
index 2911cc55..88256bc1 100755
--- a/cloc
+++ b/cloc
@@ -5862,14 +5862,17 @@ sub make_file_list {                         # {{{1
                 push @candidate_file_list, grep(is_file("$dir/$_"), readdir(DIR));
                 closedir(DIR);
             }
+            my $start_dir = cwd();
             foreach my $F (@candidate_file_list) {
                 # pretend to be File::Find's wanted() routine, namely subroutine files(),
                 # to apply all file filter rules
                 $File::Find::dir  = $dir;
-                $File::Find::name = $F;
-                $_ = "$dir/$F";
+                $File::Find::name = basename $F;
+                $_ = basename $F;
+                chdir $dir;
                 files();  # side effect:  populates @file_list
             }
+            chdir $start_dir;
             # ... then prepend the directory name to each file
             @file_list = map { "$dir/$_" } @file_list;
         } else {
@@ -6274,7 +6277,7 @@ sub files {                                  # {{{1
         }
     } else {
         # only look at the basename
-        if ($opt_match_f    ) { return unless /$opt_match_f/;     }
+        if ($opt_match_f    ) { return unless m{$opt_match_f}; }
         if (@opt_not_match_f) { return if     any_match($_, 0, \$rule, @opt_not_match_f)}
     }
     if ($opt_match_d) {