actually sort various arrays that should be sorted

diff --git a/layout/plan-to-gui-data b/layout/plan-to-gui-data
index d9fa35c3520d2ecd08dd52485bff4a4c36519b42..4c38e685277b7160462f5ef6028ce25f9c699549 100755 (executable)
--- 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;