diff options
author | Kent Fredric <kentfredric@gmail.com> | 2011-10-31 09:29:51 +1300 |
---|---|---|
committer | Kent Fredric <kentfredric@gmail.com> | 2011-10-31 15:45:47 +1300 |
commit | 95d1d237d95adbaeeddb824a8bee852cd8614bbf (patch) | |
tree | 6f8645595d524137bbc1dd3e39d5e15105104ba9 /scripts/show_deptree.pl | |
parent | Reasonably assumptive-but-works chooser of exported dep (diff) | |
download | perl-overlay-95d1d237d95adbaeeddb824a8bee852cd8614bbf.tar.gz perl-overlay-95d1d237d95adbaeeddb824a8bee852cd8614bbf.tar.bz2 perl-overlay-95d1d237d95adbaeeddb824a8bee852cd8614bbf.zip |
Sort and print by phase order
Diffstat (limited to 'scripts/show_deptree.pl')
-rwxr-xr-x | scripts/show_deptree.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/scripts/show_deptree.pl b/scripts/show_deptree.pl index 8b7889665..e49728dc8 100755 --- a/scripts/show_deptree.pl +++ b/scripts/show_deptree.pl @@ -340,11 +340,19 @@ sub gentooize_pkg { return 'dev-perl/' . $pkg; } +my @queue; + for my $module ( keys %modules ) { for my $declaration ( @{ $modules{$module} } ) { - handle_declaration( $release, $module, $declaration, *STDOUT ); + push @queue, [ $module, $declaration ]; } } +my @squeue = + sort { $a->[1]->[2] cmp $b->[1]->[2] or $a->[1]->[3] cmp $b->[1]->[3] or $a->[0] cmp $b->[0] } @queue; + +for my $qi (@squeue) { + handle_declaration( $release, @{$qi}, *STDOUT ); +} use Data::Dump qw( pp ); use JSON qw( to_json encode_json ); |