Exclude false positives on stuff like C C<Str>

Raku · Mar 17, 2018 · de1ae72 · de1ae72
1 parent c49337b
commit de1ae72
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/xt/duplicates.t b/xt/duplicates.t
@@ -48,7 +48,12 @@ for @files -> $file {
 
         next if $in-code;
 
-        my @line-dupes = ($line ~~ m:g/:i << (<alpha>+) >> \s+ << $0 >> /).map(~*[0]);
+        my @line-dupes = ($line ~~ m:g/:i
+            << (<alpha>+) >> \s+ << $0 >>
+
+            # exlude "C C<...>" false positives
+            [ '<' <!{ $0.chars == 1 }> | <![<]> ]
+        /).map(~*[0]);
         for @line-dupes -> $dupe {
             next if $safe-dups ∋ ~$dupe[0];
             @dupes.push: "“" ~ $dupe[0] ~ "” on line $line-num";