used findstatic.pl to make some variables static and remove some dead

code
(This used to be commit 91ad9041e9507d36eb3f40c23c5d4df61f139ef0)

1 files changed, 5 insertions, 0 deletions

diff --git a/source3/script/findstatic.pl b/source3/script/findstatic.pl
index d2d1b4d924..43a4916435 100755
--- a/source3/script/findstatic.pl
+++ b/source3/script/findstatic.pl
@@ -45,6 +45,7 @@ for (my($i)=0; $i <= $#{@lines}; $i++) {
 # are defined
 foreach my $f (keys %def) {
 	print "Checking $f\n";
+	my($found_one) = 0;
 	foreach my $s (@{$def{$f}}) {
 		my($found) = 0;
 		foreach my $f2 (keys %undef) {
@@ -52,6 +53,7 @@ foreach my $f (keys %def) {
 				foreach my $s2 (@{$undef{$f2}}) {
 					if ($s2 eq $s) {
 						$found = 1;
+						$found_one = 1;
 					}
 				}
 			}
@@ -61,5 +63,8 @@ foreach my $f (keys %def) {
 			print "  '$s' is unique to $f  ($t)\n";
 		}
 	}
+	if ($found_one == 0) {
+		print "  all symbols in '$f' are unused (main program?)\n";
+	}
 }