diff options
| -rwxr-xr-x | source3/script/expand-includes.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/source3/script/expand-includes.pl b/source3/script/expand-includes.pl index da64363081..33fc44b267 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; |