X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FCollation.pm;h=cf3211be702188082b656cd9d8a497bb92fab26c;hb=2d39f496010baf0dc22d7dc57203ff59dd8ef3ed;hp=94a20469c7f45de09004562c1ed3b10c0f9c595b;hpb=f523c7a8be7249883c234d12e7b005c5b19c4837;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm
index 94a2046..cf3211b 100644
--- a/lib/Text/Tradition/Collation.pm
+++ b/lib/Text/Tradition/Collation.pm
@@ -729,7 +729,7 @@ sub make_alignment_table {
     }
     my $table = { 'alignment' => [], 'length' => $self->end->rank - 1 };
     my @all_pos = ( 1 .. $self->end->rank - 1 );
-    foreach my $wit ( $self->tradition->witnesses ) {
+    foreach my $wit ( sort { $a->sigil cmp $b->sigil } $self->tradition->witnesses ) {
     	if( $include ) {
     		next unless $include->{$wit->sigil};
     	}