From: ian <ian>
Date: Wed, 14 Apr 2004 16:40:55 +0000 (+0000)
Subject: tend to sort things
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=07ca5ef70731a094b6a7b775ccb667c5bd533d7a;p=trains.git

tend to sort things
---

diff --git a/farnell/farnell-find b/farnell/farnell-find
index cd01ec5..83eba12 100755
--- a/farnell/farnell-find
+++ b/farnell/farnell-find
@@ -190,7 +190,7 @@ sub analyse_spec () {
     my ($part,$pd,$try,@rhs,$sp,$circuit,$iteratable,$count,$pe,$use);
     my ($item,$qty,$ii,$bi,$toorder,$price,$total,$notechar,$desc,$ql,$qr);
     my ($avail,%avail,$desclen,$why);
-    foreach $part (keys %partdef) {
+    foreach $part (sort keys %partdef) {
 	$item= $partdef{$part};
 	next if exists $itemdesc{$item};
 
@@ -208,7 +208,7 @@ sub analyse_spec () {
 	    }
 	}
     }
-    foreach $sp (keys %parts) {
+    foreach $sp (sort keys %parts) {
 	$sp =~ m/\n/ or die "$sp ?";
 	$circuit= $`;
 	$iteratable= $';
@@ -240,7 +240,7 @@ sub analyse_spec () {
     }
     $total= 0;
     $desclen= 43;
-    foreach $item (keys %iteminstances) {
+    foreach $item (sort keys %iteminstances) {
 	$why= defined $itemdesc{$item} ? $itemdesc{$item}[0].'; ' : '';
 	$why .= "line ".(join ",", map { $_->{LineNo} }
 		       @{ $iteminstances{$item} });