layout/data2safety: when constructing SegmentInfo.pname, sort movfeats into alphabeti...

diff --git a/layout/data2safety b/layout/data2safety
index 3ea2ccae777dd75f51bbc1950f2c2196217bb29a..3fd179e2c20b3be3b68126d328b953d15c9d1a2e 100755 (executable)
--- a/layout/data2safety
+++ b/layout/data2safety
@@ -650,7 +650,7 @@ sub writeout () {
        $ourinter= $segr->{Inter};
        for ($comb=0; $comb < $segr->{Posns}; $comb++) {
            $pi='';
-           foreach $feat (keys %{ $segr->{Feats} }) {
+           foreach $feat (sort keys %{ $segr->{Feats} }) {
                $featv= $segr->{Feats}{$feat};
                next if exists $featv->{Fixed};
                $pi.= sprintf("%s%d", $feat,