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

checksrc: catch banned functions when preceded by (

Browse source 
Also add a test case.

Closes #18779
This commit is contained in:
Viktor Szakats 2025-09-30 12:47:01 +02:00
parent c478c7efdf
commit 684f4cdd3e
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/checksrc.pl
View file

@ -893,7 +893,8 @@ sub scanfile {
# scan for use of banned functions
my $bl = $l;
again:
if(($l =~ /^(.*?\W)(\w+)(\s*\()/x) && $banfunc{$2}) {
if((($l =~ /^(.*?\W)(\w+)(\s*\()/x) && $banfunc{$2}) ||
(($l =~ /^(.*?\()(\w+)(\s*\()/x) && $banfunc{$2})) {
my $bad = $2;
my $prefix = $1;
my $suff = $3;
@ -904,6 +905,7 @@ sub scanfile {
$prefix =~ s/\*/\\*/;
$prefix =~ s/\[/\\[/;
$prefix =~ s/\]/\\]/;
$prefix =~ s/\(/\\(/;
$suff =~ s/\(/\\(/;
$l =~ s/$prefix$bad$suff/$prefix$replace/;
goto again;