Windows file path separator in exclude_autogenerated_files(), #722

AlDanial · Jul 8, 2023 · be72b7f · be72b7f
1 parent 26d9383
commit be72b7f
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/cloc b/cloc
@@ -2395,7 +2395,14 @@ sub exclude_autogenerated_files {            # {{{1
                 foreach my $file (@{$ra_file_list}) {
                     my $full_path = File::Spec->catfile($repo_dir, $file);
                     my $rel_file  = File::Spec->abs2rel($full_path, $cwd);
-                    if ($rel_file =~ m{$re}) {
+                    my $match = undef;
+                    if ($ON_WINDOWS) {
+                        $rel_file =~ s{\\}{/}g;
+                        $match = $rel_file =~ m{$re}i;
+                    } else {
+                        $match = $rel_file =~ m{$re};
+                    }
+                    if ($match) {
 #print "RULE [$rel_file] v [$re]\n";
                         $rh_Ignored->{$file} = "matches $GA rule '$line'";
                     } else {