badwords: twice as fast

...on my macOS machine, this version uses half the time when
scanning the source.

Closes #20877

diff --git a/scripts/badwords b/scripts/badwords
index 149150ef23360431e2b579285e357599593cd25f..9c455746361d9d4edf500e41eee18df27b4598f9 100755 (executable)
--- a/scripts/badwords
+++ b/scripts/badwords
@@ -73,15 +73,15 @@ while(<STDIN>) {
 # Build a single combined regex for case-insensitive words
 my $re_ci;
 if(@w) {
-    my $pat = join('|', map { '\b'.quotemeta($_).'\b' } @w);
-    $re_ci = qr/($pat)/i;
+    my $pat = join('|', map { quotemeta($_) } @w);
+    $re_ci = qr/\b($pat)\b/i;
 }
 
 # Build a single combined regex for case-sensitive (exact) words
 my $re_cs;
 if(@exact) {
-    my $pat = join('|', map { '\b'.quotemeta($_).'\b' } @exact);
-    $re_cs = qr/($pat)/;
+    my $pat = join('|', map { quotemeta($_) } @exact);
+    $re_cs = qr/\b($pat)\b/;
 }
 
 my $errors = 0;