X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FAnalysis.pm;h=1de487ff67c09b5c1520050a87ba4b5a7ca418d4;hb=c7d0f25340110328ca7113d843d48c053514d14a;hp=00b7b673179d105f20157420c1765f3389b6c163;hpb=d71100eda61da81b1e4787810dfae8843f0be88a;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Analysis.pm b/lib/Text/Tradition/Analysis.pm
index 00b7b67..1de487f 100644
--- a/lib/Text/Tradition/Analysis.pm
+++ b/lib/Text/Tradition/Analysis.pm
@@ -67,10 +67,11 @@ sub run_analysis {
 		my $rank;
 		foreach my $j ( 0 .. $#{$col_rdgs} ) {
 			my $rdg = $col_rdgs->[$j];
-			$rank = $rdg->rank if $rdg && !$rank;  # Make a note of our rank
 			my $rdg_text = '(omitted)';  # Initialize in case of empty reading
 			if( $rdg ) {
 				$rdg_text = $rdg->is_lacuna ? undef : $rdg->text; # Don't count lacunae
+				# Get the rank from any real reading; they should be identical.
+				$rank = $rdg->rank unless $rank || $rdg->is_lacuna;
 			}
 			if( defined $rdg_text ) {
 				# Initialize the witness array if we haven't got one yet