diff options
author | Michael Meeks <michael.meeks@suse.com> | 2013-03-06 10:35:55 +0000 |
---|---|---|
committer | Michael Meeks <michael.meeks@suse.com> | 2013-03-06 10:35:55 +0000 |
commit | 499e53a95e79b175037ec9264d34e2ca6f7e692a (patch) | |
tree | 06c66eaf36a1374820146e738ce2cc7a089219a9 /bin/module-deps.pl | |
parent | significantly faster and less lame module dep collapsing. (diff) | |
download | core-499e53a95e79b175037ec9264d34e2ca6f7e692a.tar.gz core-499e53a95e79b175037ec9264d34e2ca6f7e692a.zip |
make debugging / cache better and kill a warning.
Diffstat (limited to 'bin/module-deps.pl')
-rwxr-xr-x | bin/module-deps.pl | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/bin/module-deps.pl b/bin/module-deps.pl index 904323bf1b8a..8b7b887a74ba 100755 --- a/bin/module-deps.pl +++ b/bin/module-deps.pl @@ -11,8 +11,11 @@ sub read_deps() my $invalid_tolerance = 100; my $line_count = 0; my %deps; - open ($p, "ENABLE_PRINT_DEPS=1 $gnumake -n -f $makefile_build all|") || die "can't launch make: $!"; -# open ($p, "/tmp/deps") || die "can't read deps: $!"; + if (defined $ENV{DEP_CACHE_FILE}) { + open ($p, $ENV{DEP_CACHE_FILE}) || die "can't read deps from cache: $!"; + } else { + open ($p, "ENABLE_PRINT_DEPS=1 $gnumake -n -f $makefile_build all|") || die "can't launch make: $!"; + } $|=1; print STDERR "reading deps "; while (<$p>) { @@ -94,6 +97,7 @@ sub has_child_dep($$$) } # flatten deps recursively into a single hash per module +sub build_flat_dep_hash($$); sub build_flat_dep_hash($$) { my ($tree, $name) = @_; @@ -115,8 +119,11 @@ sub build_flat_dep_hash($$) } $node->{flat_deps} = \%flat_deps; -# print "node '$name' has flat-deps: '" . join(',', keys %flat_deps) . "' " . -# "vs. '" . join(',', @{$node->{deps}}) . "'\n"; + # useful debugging ... + if (defined $ENV{DEP_CACHE_FILE}) { + print "node '$name' has flat-deps: '" . join(',', keys %flat_deps) . "' " . + "vs. '" . join(',', @{$node->{deps}}) . "'\n"; + } } # many modules depend on vcl + sal, but vcl depends on sal |