From 012445a51819a9b68b048421fe5597ba41519d93 Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Tue, 18 Oct 2016 07:15:22 +0200 Subject: [PATCH] scan-adoc-refs: fix dependency computation (make it recusive) --- scan-adoc-refs | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/scan-adoc-refs b/scan-adoc-refs index 70547e2..1ac1f90 100755 --- a/scan-adoc-refs +++ b/scan-adoc-refs @@ -373,9 +373,21 @@ if ($generate_depends) { my $depends = {}; foreach my $e (@$start_env) { my $env_data = $fileinfo->{include}->{$e}; + + my $add_depends; + + $add_depends = sub { + my ($fn, $dep) = @_; + + $depends->{$fn}->{$dep} = 1; + foreach my $nd (keys %{$env_data->{$dep}}) { + &$add_depends($fn, $nd); + } + }; + foreach my $fn (keys %$env_data) { foreach my $dep (keys %{$env_data->{$fn}}) { - $depends->{$fn}->{$dep} = 1; + &$add_depends($fn, $dep); } } } -- 2.39.2