[gentoo-commits] proj/perl-overlay:master commit in: scripts/

[Kent Fredric]

commit:     95d1d237d95adbaeeddb824a8bee852cd8614bbf
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Sun Oct 30 20:29:51 2011 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Mon Oct 31 02:45:47 2011 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=95d1d237

Sort and print by phase order

---
 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 8b78896..e49728d 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 );