mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2025-01-12 13:55:11 +08:00
Code Issues Packages Projects Releases Wiki Activity

tests/disable-scan.pl: also scan all m4 files

Browse Source 
Fixes test 1165 when functions are moved from configure.ac to files in
m4/
This commit is contained in:
Daniel Stenberg 2021-04-15 12:11:41 +02:00
parent 54e7475016
commit 4708f29f1c
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/disable-scan.pl
View File

@ -36,8 +36,9 @@ my %docs;
my $root=$ARGV[0] || ".";
my $DOCS="CURL-DISABLE.md";
sub scan_configure {
open S, "<$root/configure.ac";
sub scanconf {
my ($f)=@_;
open S, "<$f";
while(<S>) {
if(/(CURL_DISABLE_[A-Z_]+)/g) {
my ($sym)=($1);
@ -47,6 +48,17 @@ sub scan_configure {
close S;
}
sub scan_configure {
opendir(my $m, "$root/m4") || die "Can't opendir $root/m4: $!";
my @m4 = grep { /\.m4$/ } readdir($m);
closedir $m;
scanconf("$root/configure.ac");
# scan all m4 files too
for my $e (@m4) {
scanconf("$root/m4/$e");
}
}
sub scan_file {
my ($source)=@_;
open F, "<$source";