expand-includes: Add simple protection against infinite recursion.

1 files changed, 5 insertions, 0 deletions

diff --git a/source3/script/expand-includes.pl b/source3/script/expand-includes.pl
index da643630810..33fc44b267f 100755
--- a/source3/script/expand-includes.pl
+++ b/source3/script/expand-includes.pl
@@ -3,9 +3,13 @@
 # Copyright (C) 2009 Jelmer Vernooij <jelmer@samba.org>
 # Published under the GNU GPLv3 or later
 
+my $depth = 0;
+
 sub process($)
 {
 	my ($f) = @_;
+	$depth++;
+	die("Recursion in $f?") if ($depth > 100);
 	open(IN, $f) or die("Unable to open $f: $!");
 	foreach (<IN>) {
 		my $l = $_;
@@ -15,6 +19,7 @@ sub process($)
 			print $l;
 		}
 	}
+	$depth--;
 }
 
 my $path = shift;