650b33a3db
Viktor Szakats
2026-03-18
Subject
badwords: pass config as filename arg
Binary
No binary (build failed)
Architecture & Compiler Flags
—
Build Log
(log yok)
Commit Diff GitHub →
scripts/badwords+4 -1
| @@ -174,7 +174,9 @@ my %wl; | |
| my @w; | |
| my @exact; | |
| - | while(<STDIN>) { |
| + | my $file = shift @ARGV; |
| + | open(CONFIG, "<$file") or die "Cannot open '$file': $!"; |
| + | while(<CONFIG>) { |
| chomp; | |
| if($_ =~ /^#/) { | |
| next; | |
| @@ -200,6 +202,7 @@ while(<STDIN>) { | |
| } | |
| } | |
| } | |
| + | close(CONFIG); |
| # Build a single combined regex for case-insensitive words | |
| my $re_ci; | |
scripts/badwords-all+3 -2
| @@ -8,6 +8,7 @@ use warnings; | |
| use File::Basename; | |
| - | chdir dirname(__FILE__) . "/.."; |
| + | chdir dirname(__FILE__) . '/..'; |
| - | exit system("scripts/badwords '**.md' projects/OS400/README.OS400 src lib include docs/examples < scripts/badwords.txt") >> 8; |
| + | exit system('scripts/badwords', ('scripts/badwords.txt', |
| + | '**.md', 'projects/OS400/README.OS400', 'src', 'lib', 'include', 'docs/examples')) >> 8; |