romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-07-22 18:57:15 +03:00
Code Issues Projects Releases Packages Wiki Activity

test1173.pl: whitelist some option-looking names that aren't options

Browse source 
Referring to the names in the CURLOPT_DEBUGFUNCTION by name is still
fine. They start with CURLINFO but aren't really options for *getinfo().

Closes #17361
This commit is contained in:
Daniel Stenberg 2025-05-15 22:08:09 +02:00
parent 30ef79ed93
commit f51c6d2dc2
No known key found for this signature in database
GPG key ID: 5CC908FDB71E12C2
1 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

19
tests/test1173.pl
View file

@ -119,6 +119,17 @@ sub checkref {
}
}
# option-looking words that aren't options
my %allownonref = (
'CURLINFO_TEXT' => 1,
'CURLINFO_HEADER_IN' => 1,
'CURLINFO_HEADER_OUT' => 1,
'CURLINFO_DATA_IN' => 1,
'CURLINFO_DATA_OUT' => 1,
'CURLINFO_SSL_DATA_IN' => 1,
'CURLINFO_SSL_DATA_OUT' => 1,
);
sub scanmanpage {
my ($file) = @_;
my $reqex = 0;
@ -233,8 +244,12 @@ sub scanmanpage {
}
if(($_ =~ /\\f([BI])((libcurl|CURLOPT_|CURLSHOPT_|CURLINFO_|CURLMOPT_|curl_easy_|curl_multi_|curl_url|curl_mime|curl_global|curl_share)[a-zA-Z_0-9-]+)(.)/) &&
($4 ne "(")) {
print STDERR "$file:$line curl ref to $2 without section\n";
$errors++;
my $word = $2;
if(!$allownonref{$word}) {
print STDERR "$file:$line curl ref to $word without section\n";
$errors++;
}
}
if($_ =~ /(.*)\\f([^BIP])/) {
my ($pre, $format) = ($1, $2);