romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-05-30 10:37:28 +03:00
Code Issues Projects Releases Packages Wiki Activity

scripts: fix two Perl uninitialized value warnings

Browse source 
```
Use of uninitialized value $errors in exit at .github/scripts/badwords.pl line 87.
Use of uninitialized value $o in concatenation (.) or string at ../.github/scripts/randcurl.pl line 99.
```

Follow-up to 2ec54556d4 #17877
Cherry-picked from #18042
Closes #18047
This commit is contained in:
Viktor Szakats 2025-07-27 23:36:33 +02:00
parent fd2ca2399e
commit 7509854824
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
.github/scripts/badwords.pl vendored
View file

@ -40,7 +40,7 @@ while(<STDIN>) {
}
}
my $errors;
my $errors = 0;
sub file {
my ($f) = @_;

2
.github/scripts/randcurl.pl vendored
View file

@ -92,7 +92,7 @@ sub randarg {
"0123456789".
",-?#$%!@ ";
my $len = getnum(20);
my $o;
my $o = '';
for (1 .. $len) {
$o .= substr($nice, getnum(length($nice)), 1);
}