stop tracking bbedit stuff; first pass at Collate! parsing

[scpubgit/stemmatology.git] / lib / Text / Tradition / Analysis.pm

diff --git a/lib/Text/Tradition/Analysis.pm b/lib/Text/Tradition/Analysis.pm
index 49cbe95..a717529 100644 (file)
--- a/lib/Text/Tradition/Analysis.pm
+++ b/lib/Text/Tradition/Analysis.pm
@@ -55,7 +55,7 @@ sub run_analysis {
        my $col_wits = shift @$all_wits_table;
        # Any witness in the stemma that has no row should be noted.
     foreach ( @$col_wits ) {
-        $wits->{$_}++;
+        $wits->{$_}++; # Witnesses present in table and stemma now have value 2.
     }
     my @not_collated = grep { $wits->{$_} == 1 } keys %$wits;