scan-adoc-refs: fix dependency computation (make it recusive)

This commit is contained in:
Dietmar Maurer 2016-10-18 07:15:22 +02:00
parent 5bf279bd97
commit 012445a518

View File

@ -373,9 +373,21 @@ if ($generate_depends) {
my $depends = {}; my $depends = {};
foreach my $e (@$start_env) { foreach my $e (@$start_env) {
my $env_data = $fileinfo->{include}->{$e}; 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 $fn (keys %$env_data) {
foreach my $dep (keys %{$env_data->{$fn}}) { foreach my $dep (keys %{$env_data->{$fn}}) {
$depends->{$fn}->{$dep} = 1; &$add_depends($fn, $dep);
} }
} }
} }