c1cea52f12
Stefan Eissing
2026-03-10
Subject
badwords: twice as fast
Binary
No binary (build failed)
Architecture & Compiler Flags
—
Build Log
(log yok)
Commit Diff GitHub →
scripts/badwords+4 -4
| @@ -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; | |