From ba00d0bedc4329826c521bb5c04144ed4a871fca Mon Sep 17 00:00:00 2001
From: Jim Cromie <jim.cromie@gmail.com>
Date: Mon, 23 May 2011 12:44:56 -0600
Subject: [PATCH] --- yaml --- r: 251334 b: refs/heads/master c:
 bdabc7a345db97b3839c2c3deef40023cf8017ef h: refs/heads/master v: v3

---
 [refs]                         | 2 +-
 trunk/scripts/export_report.pl | 8 +++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/[refs] b/[refs]
index 6e1733ff72f3..aa0deeb325cf 100644
--- a/[refs]
+++ b/[refs]
@@ -1,2 +1,2 @@
 ---
-refs/heads/master: de7b0b4110795be914e6cafdfec4276b2618cc78
+refs/heads/master: bdabc7a345db97b3839c2c3deef40023cf8017ef
diff --git a/trunk/scripts/export_report.pl b/trunk/scripts/export_report.pl
index f97899c87923..48398a19fbbc 100644
--- a/trunk/scripts/export_report.pl
+++ b/trunk/scripts/export_report.pl
@@ -25,11 +25,12 @@ sub alphabetically {
 sub print_depends_on {
 	my ($href) = @_;
 	print "\n";
-	while (my ($mod, $list) = each %$href) {
+	for my $mod (sort keys %$href) {
+		my $list = $href->{$mod};
 		print "\t$mod:\n";
 		foreach my $sym (sort numerically @{$list}) {
 			my ($symbol, $no) = split /\s+/, $sym;
-			printf("\t\t%-25s\t%-25d\n", $symbol, $no);
+			printf("\t\t%-25s\n", $symbol);
 		}
 		print "\n";
 	}
@@ -166,7 +167,8 @@ sub collectcfiles {
 it uses.  Each listed symbol reports the number of modules using it\n");
 
 print "~"x80 , "\n";
-while (my ($thismod, $list) = each %MODULE) {
+for my $thismod (sort keys %MODULE) {
+	my $list = $MODULE{$thismod};
 	my %depends;
 	$thismod =~ s/\.mod\.c/.ko/;
 	print "\t\t\t$thismod\n";