git-market/curl-curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-04-11 12:01:42 +08:00
Code Issues Actions 14 Packages Projects Releases Wiki Activity

runtests: fix Perl warning after recent patch

Browse Source 
```
Use of uninitialized value $hash{"crlf"} in string eq at tests/runtests.pl line 1406.
```

Follow-up to 6cf3d7b1b1 #19318
Closes #19327
This commit is contained in:
Viktor Szakats 2025-11-02 04:45:05 +01:00
parent 6cf3d7b1b1
commit 986ef77833
No known key found for this signature in database
GPG Key ID: B5ABD165E2AEF201
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/runtests.pl
View File

@ -1403,11 +1403,13 @@ sub singletest_check {
}
}
if($hash{'crlf'} eq "headers") {
subnewlines(0, \$_) for @protocol;
}
elsif($hash{'crlf'}) {
subnewlines(1, \$_) for @protocol;
if($hash{'crlf'}) {
if($hash{'crlf'} eq "headers") {
subnewlines(0, \$_) for @protocol;
}
else {
subnewlines(1, \$_) for @protocol;
}
}
if((!$out[0] || ($out[0] eq "")) && $protocol[0]) {