From: ian <ian>
Date: Thu, 5 Jan 2006 02:36:18 +0000 (+0000)
Subject: actually sort various arrays that should be sorted
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?p=trains.git;a=commitdiff_plain;h=00dd4256f736f30bf620af47372a88bd1e4a14cd

actually sort various arrays that should be sorted
---

diff --git a/layout/plan-to-gui-data b/layout/plan-to-gui-data
index d9fa35c..4c38e68 100755
--- a/layout/plan-to-gui-data
+++ b/layout/plan-to-gui-data
@@ -561,7 +561,7 @@ sub plandata_output_all () {
     ooda0('segments',
 	  "static const PlanSegmentData segments");
 
-    foreach $segname (@segnames) {
+    foreach $segname (sort @segnames) {
 	@movfeats=
 	    exists $movfeats{$segname} ? @{ $movfeats{$segname} } : ();
 	unshift @movfeats, '';
@@ -572,7 +572,7 @@ sub plandata_output_all () {
 	ooda1("segments",
 	      "{ \"$segname\", ".scalar(@movfeats).", mf_$segname }");
 
-	foreach $movfeat (@movfeats) {
+	foreach $movfeat (sort @movfeats) {
 	    if (!length $movfeat) {
 		$xpmname= $segname;
 		$n_posns= 1;