From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 15 Apr 2021 10:11:41 +0000 (+0200)
Subject: tests/disable-scan.pl: also scan all m4 files
X-Git-Tag: curl-7_77_0~147
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4708f29f1c01a33e3808db5b8adfa4cd596d8067;p=thirdparty%2Fcurl.git

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

Fixes test 1165 when functions are moved from configure.ac to files in
m4/
---

diff --git a/tests/disable-scan.pl b/tests/disable-scan.pl
index 64a181aca1..65f5b03cb6 100755
--- a/tests/disable-scan.pl
+++ b/tests/disable-scan.pl
@@ -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";