s4:setup: fix cut-n-paste error Builtin-Domain => Samba4-Local-Domain

[tprouty/samba.git] / source4 / script / find_unused_makefilevars.pl

diff --git a/source4/script/find_unused_makefilevars.pl b/source4/script/find_unused_makefilevars.pl
index 1bed1228eca8da9f388fa8cde31b11220c961242..23fc36ef6a5a0c43801253b14e4213361b22d861 100755 (executable)
--- a/source4/script/find_unused_makefilevars.pl
+++ b/source4/script/find_unused_makefilevars.pl
@@ -13,17 +13,26 @@ my %defines;
 # First, make a list of defines in configure
 $in = shift;
 
-open(IN, $in);
-while(<IN>) {
-       my $line = $_;
-       while($line =~ /^\b([a-zA-Z0-9_][a-zA-Z0-9_]*)\b[ \t]*=.*/sgm) {
-               $defines{$1} = 1;
-       }
-       while($line =~ /\$\(([a-zA-Z0-9_][a-zA-Z0-9_]*)\)/sgm) {
-               $references{$1} = 1;
+sub process_file($)
+{
+       my ($fn) = @_;
+       open(IN, $fn);
+       while(<IN>) {
+               my $line = $_;
+               while($line =~ /^\b([a-zA-Z0-9_][a-zA-Z0-9_]*)\b[ \t]*=.*/sgm) {
+                       $defines{$1} = 1;
+               }
+               while($line =~ /\$\(([a-zA-Z0-9_][a-zA-Z0-9_]*)\)/sgm) {
+                       $references{$1} = 1;
+               }
+               while ($line =~ /^include (.*)/sgm) {
+                       process_file($1);
+               }
        }
+       close IN;
 }
-close IN;
+
+process_file($in);
 
 print "##### DEFINED BUT UNUSED: #####\n";
 foreach(%defines) {