From: Tara L Andrews Date: Sun, 2 Oct 2011 23:48:54 +0000 (+0200) Subject: fix acquisition of rank for row X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c7d0f25340110328ca7113d843d48c053514d14a;p=scpubgit%2Fstemmatology.git fix acquisition of rank for row --- 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