Apple-2gs-SW/hush
1
0
Fork 0
mirror of https://github.com/sheumann/hush.git synced 2024-06-25 11:29:31 +00:00
Code Issues Projects Releases Wiki Activity

depmod.pl: recurse through module dependencies

Browse Source 
The previous fix up loaded dependencies two deep, but really that was an
incomplete fix as we need to load dependencies all the way down.  So change
the code to run recursively through all dependencies.

Signed-off-by: Mike Frysinger <vapier@gentoo.org>
This commit is contained in:
Mike Frysinger 2009-07-09 00:28:48 -04:00
parent b773f715d6
commit 4c8a721b45
1 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
examples/depmod.pl
View File

@ -167,21 +167,32 @@ sub maybe_unshift
}
unshift (@{$array}, $ele);
}
sub add_mod_deps
{
my ($depth, $mod, $mod2, $module, $this_module) = @_;
$depth .= " ";
warn "${depth}loading deps of module: $this_module\n" if $verbose;
foreach my $md (keys %{$mod->{$this_module}}) {
add_mod_deps ($depth, $mod, $mod2, $module, $md);
warn "${depth} outputting $md\n" if $verbose;
maybe_unshift (\@{$$mod2->{$module}}, $md);
}
if (!%{$mod->{$this_module}}) {
warn "${depth} no deps\n" if $verbose;
}
}
foreach my $module (keys %$mod) {
warn "filling out module: $module\n" if $verbose;
@{$mod2->{$module}} = ();
foreach my $md (keys %{$mod->{$module}}) {
foreach my $md2 (keys %{$mod->{$md}}) {
warn "outputting $md2\n" if $verbose;
maybe_unshift (\@{$mod2->{$module}}, $md2);
}
warn "outputting $md\n" if $verbose;
maybe_unshift (\@{$mod2->{$module}}, $md);
}
warn "filling out module: $module\n" if $verbose;
@{$mod2->{$module}} = ();
add_mod_deps ("", $mod, \$mod2, $module, $module);
}
# figure out where the output should go
if ($stdout == 0) {
warn "writing $basedir/modules.dep\n" if $verbose;
open(STDOUT, ">$basedir/modules.dep")
or die "cannot open $basedir/modules.dep: $!";
}