tend to sort things

diff --git a/farnell/farnell-find b/farnell/farnell-find
index cd01ec5f28f80a4e6a81d0aae2783ea2a048e3da..83eba123454672942ebb47185ed2c95d02152016 100755 (executable)
--- 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} });