UNFINISHED change to Analysis to incorporate IDP solver

[scpubgit/stemmatology.git] / lib / Text / Tradition / Parser / Util.pm

diff --git a/lib/Text/Tradition/Parser/Util.pm b/lib/Text/Tradition/Parser/Util.pm
index 2cca6e8..9110655 100644 (file)
--- a/lib/Text/Tradition/Parser/Util.pm
+++ b/lib/Text/Tradition/Parser/Util.pm
@@ -141,6 +141,7 @@ Don't use this. Really.
 sub cmp_str {
     my( $reading ) = @_;
     my $word = $reading->text();
+    return $word unless $reading->collation->tradition->name =~ /158/;
     $word = lc( $word );
     $word =~ s/\W//g;
     $word =~ s/v/u/g;