romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-04-14 22:01:41 +03:00
Code Issues Projects Releases Packages Wiki Activity

badwords: fix showing alternative for case-insensitive hits

Browse source 
Fixing:
```
Use of uninitialized value $alt{"Simply"} in printf at scripts/badwords line 109, <F> line 34.
 maybe use "" instead?
```

Closes #20879
This commit is contained in:
Viktor Szakats 2026-03-10 17:59:22 +01:00
parent 15932f2ac5
commit 4021c6e673
No known key found for this signature in database
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
scripts/badwords
View file

@ -60,11 +60,12 @@ while(<STDIN>) {
}
elsif($_ =~ /^(.*)([:=])(.*)/) {
my ($bad, $sep, $better)=($1, $2, $3);
$alt{$bad} = $better;
if($sep eq "=") {
$alt{$bad} = $better;
push @exact, $bad;
}
else {
$alt{lc($bad)} = $better;
push @w, $bad;
}
}
@ -87,7 +88,7 @@ if(@exact) {
my $errors = 0;
sub highlight {
my ($p, $w, $in, $f, $l) = @_;
my ($p, $w, $in, $f, $l, $lookup) = @_;
my $c = length($p)+1;
my $ch = "$f:$l:$w";
@ -105,7 +106,7 @@ sub highlight {
printf STDERR " %4d | %s\n", $l, $in;
printf STDERR " | %*s^%s\n", length($p), " ",
"~" x (length($w)-1);
printf STDERR " maybe use \"%s\" instead?\n", $alt{$w};
printf STDERR " maybe use \"%s\" instead?\n", $alt{$lookup};
$errors++;
}
@ -131,14 +132,14 @@ sub file {
# case-insensitive bad words
if($re_ci) {
while($in =~ /^(.*)$re_ci/i) {
highlight($1, $2, $in, $f, $l);
highlight($1, $2, $in, $f, $l, lc($2));
last;
}
}
# case-sensitive (exact) bad words
if($re_cs) {
while($in =~ /^(.*)$re_cs/) {
highlight($1, $2, $in, $f, $l);
highlight($1, $2, $in, $f, $l, $2);
last;
}
}